Question

Напишите программу, которая получает возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом «год», «года» или «лет». Например, «21 год», «22 года», «25 лет».
Пример:
Введите возраст: 18 Вам 18 лет.
Пример:
Введите возраст: 21 Вам 21 год.
Пример:
Введите возраст: 22 Вам 22 года.
PASCAL

Answer 1

var

age: integer;

begin

writeln('Введите возраст:');

readln(age);

if (age mod 10 = 1) then writeln('Вам ', age, ' год')

else if (age mod 10 > 1) and (age mod 10 < 5) then writeln('Вам ', age, ' года')

else writeln('Вам ', age, ' лет');

end.