По заданному возрасту человека (n целое число) вывести сообщение каков возраст, добавляя к n слова "лет", "год" или "года". Например, 25 лет, 4 года, 51 год.

Question

Информатика

Эммануилыч

19 декабря, 22:10

По заданному возрасту человека (n целое число) вывести сообщение каков возраст, добавляя к n слова "лет", "год" или "года". Например, 25 лет, 4 года, 51 год.

+3

Ответы (1)

Знаете ответ?

Мардарий · Answer 1

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.