⇢ 
Нина
как в турбо паскале ввести возраст человека и получить слово "год" "лет " или "года"
возраст от 1 до 150
Анна
var a:integer;
begin
write('Возраст? '); readln(a); writeln(a);
case a mod 10 of 1:writeln(' год'); 2..4:writeln(' года'); else writeln(' лет'); end;
readln
end.
АМ
Алексей Марин
Надо добавить проверку на 11-19, это тоже пишется как 1х лет.
Похожие вопросы