Дать для числа наименования ”год", ”года", ”лет" - Pascal ABC

Формулировка задачи:

Дано натуральное число (n100), определяющее возраст человека (в годах). Дать для этого числа наименования ”год", ”года", ”лет".

Код к задаче: «Дать для числа наименования ”год", ”года", ”лет" - Pascal ABC»

textual
var n:byte;
    s,g:string;
begin
repeat
write('Введите возраст от 1 до 100 n=');
readln(n);
until n in [1..100];
s:='Мне ';
str(n,g);
case n of
10..20,30,40,100:s:=s+g+' лет';
else
 case n mod 10 of
 1:s:=s+g+' год';
 2..4:s:=s+g+' года';
 else s:=s+g+' лет';
 end;
end;
write(s);
end.

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ