Напишите программу, которая получает возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом «год», «года» или «лет». Например, «21 год», «22 года», «25 лет». Пример: Введите возраст: 18 Вам 18 лет. Пример: Введите возраст: 21 Вам 21 год. Пример: Введите возраст: 22 Вам 22 года. PASCAL
var age: integer; begin writeln('Введите возраст: '); readln(age);
if (age mod 10 = 1) and (age <> 11) then writeln('Вам ', age, ' год.') else if (age mod 10 = 2) and (age <> 12) then writeln('Вам ', age, ' года.') else if (age mod 10 = 3) and (age <> 13) then writeln('Вам ', age, ' года.') else if (age mod 10 = 4) and (age <> 14) then writeln('Вам ', age, ' года.') else writeln('Вам ', age, ' лет.'); end.
var
age: integer;
begin
writeln('Введите возраст: ');
readln(age);
if (age mod 10 = 1) and (age <> 11) then
writeln('Вам ', age, ' год.')
else if (age mod 10 = 2) and (age <> 12) then
writeln('Вам ', age, ' года.')
else if (age mod 10 = 3) and (age <> 13) then
writeln('Вам ', age, ' года.')
else if (age mod 10 = 4) and (age <> 14) then
writeln('Вам ', age, ' года.')
else
writeln('Вам ', age, ' лет.');
end.