Решите, пожалуйста, в паскале)

+ 0 -

Svema1974

18 дек. 2013 г., 13:12:28 (10 лет назад)

var K,a:integer;
begin
writeln('Введите количество лет');
readln(K);
if (K>=1) and (K<=99) then
begin
if (K=11) or (K=12) or (K=13) or (K=14) then writeln ('Мне ',K,' лет') else
begin
a:=K mod 10;
if (a=1) then writeln ('Мне ',K,' год');
if (a>=2) and (a<=4) then writeln ('Мне ',K,' года');
if (a=0) or ((a>=5) and (a<=9)) then writeln ('Мне ',K,' лет');
end;
end
else writeln ('Неверное количество лет');
end.

+ 0 -

ZigmaTM

18 дек. 2013 г., 13:54:06 (10 лет назад)

Program tt; 
Var k : integer; 
Begin 
Writeln('Ввод возраста: ');
Read (k);
if k mod 10 =1 then 
Writeln ('Мне ',k,' год');
if (k  mod 10 > 1) and (k  mod 10 < 5) then 
Writeln ('Мне ',k,' года');
if k  mod 10 > 4 then 
Writeln ('Мне ',k,' лет')
End. 

+ 0 -

Katerinadas

18 дек. 2013 г., 16:16:00 (10 лет назад)

Комментарий удален

+ 0 -

UlzzangAn4o

18 дек. 2013 г., 17:04:32 (10 лет назад)

паскаль