Напишите процедуру которая принимает числовой параметр-Возраст человека в годах и выводит этот возраст со словом год, года или лет. Например 21 год, 22 года, 12 лет

Question

Информатика

Аникуша

12 июня, 13:49

Напишите процедуру которая принимает числовой параметр-Возраст человека в годах и выводит этот возраст со словом год, года или лет. Например 21 год, 22 года, 12 лет

+2

Ответы (1)

Знаете ответ на вопрос?

Максиан · Answer 1

Procedure Age (n: integer) ;

var

m: integer;

s: string;

begin

if ((n > = 11) and (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;