Var n:integer; s:string; begin readln(n); case n mod 10 of 1:s:=' год'; 2..4:s:=' года'; 0,5..9:s:=' лет'; end; case n mod 100 of 11..19:s:=' лет'; end; writeln(n,s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку