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

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


textual

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

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



Похожие ответы
  1. Даны наименования трех газет и три фамилии подписчиков. Определить,выписывает ли Петров газету "Правда".

  1. Помогите написать программу. Задача: для введенного из файла наименования сформировать аббревиатуру. например исх. текст- Автоматизированные системы управления. Результат АСУ.