Ввести возраст человека от 1 до 150 лет и вывести его вместе с последующим словом (год, года или лет).
Var age:byte;
begin
read(age);
age:=age mod 10;
case age of
0,5,6,7,8,9: write(лет);
1: write(год);
2,3,4: write(года);
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
