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

1
Напишите программу, которая определяет, верно ли, что введённое число трёхзначное.
a:integer;
if (a>99) and (a<1000)
все))
Напишите программу, которая вводит целое число, не превышающее 100, и выводит его прописью, например: 21- "двадцать один"

Ответы и объяснения

2014-02-11T17:13:27+04:00
Program years;
year:integer;
begin
readln(year);
if(year >0) and(year<=120) then begin
if(year mod 10 =0)or(year mod 10 >=5) then writeln(year, ' лет ')
else if(year mod 10 =1)then writeln(year, ' год ')
else writeln(year, ' года ');
end;
end.
Напишите программу, которая определяет, верно ли, что введённое число трёхзначное.