Напишите процедуру которая принимает числовой параметр-Возраст человека в годах и выводит этот возраст со словом год, года или лет. Например 21 год, 22 года, 12 лет
Ответы
Ответ дал:
0
procedure Age(n: integer);
var
m: integer;
s: string;
begin
if ((n >= 11) and (n <= 20)) or ((n >= 111) and (n <= 120)) then s := 'лет'
else begin
m := n mod 10;
case m of
1: s := 'год';
2..4: s := 'года';
else s := 'лет'
end
end;
Writeln('Возраст равен ', n, ' ', s)
end;
var
m: integer;
s: string;
begin
if ((n >= 11) and (n <= 20)) or ((n >= 111) and (n <= 120)) then s := 'лет'
else begin
m := n mod 10;
case m of
1: s := 'год';
2..4: s := 'года';
else s := 'лет'
end
end;
Writeln('Возраст равен ', n, ' ', s)
end;
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад