Кейс Опции

[Demian]

Для целого числа от 1 до 99 напечатать фразу "Мне k лет", учитывая при этом, что при некоторых значениях k слово "лет" нода заменить на слово "год" или "года". Например "11 лет", "22 года", "51 год".

Нуждаюсь в помощи.

[Sozialist]

Спойлер (Показать/Скрыть)

Var
i:integer;
Ar: array [1..99] of string;
begin
 for i:=1 to 99 do
 begin
 if i in [5..20] then ar[i]:='let' else
 case (i mod 10) of
                                1: ar[i]:='god';
                                2,3,4: ar[i]:='goda'

 else ar[i]:='let'; end;
 end;
 repeat
 write('enter the number: ');
 readln(i);
 if i in [1..99] then begin
 {for i:=1 to 99 do}
 writeln('Mne ',i,' ',ar[i]);
 readln
 end;
 until i=0;
end.

Не советую смотреть, что за скрытым текстом.

Сообщение отредактировано: Sozialist - 22.06.2008 17:02