Интересно, догадался ли кто-нибудь ещё, как решить такую задачку?=)))

+ 0 -

Alisa1282

25 мая 2015 г., 14:43:29 (8 лет назад)

немного странный наверное в плане выбора от 11 до 19. придет в голову что-то более адекватное - я исправлю))

uses crt;
var i,n,z:integer;
begin
     write('Введите число: ');
     readln(i);
     clrscr;
     n:=i mod 10;
     z:=i div 10 mod 10;
     case n of 
          1: write(i,' год');
          2..4: write(i,' года');
          5..9,0: write(i,' лет');
     end;
     while z=1 do
     begin
           clrscr;
           write(i,' лет');
           z:=0;
     end;
end.

+ 0 -

Dollaras4

25 мая 2015 г., 16:08:50 (8 лет назад)

Ну же, люди!=)))