Помогите!

Напечатайте фразу "Мне n лет", согласовав число n (n<=99) с фразой. Например, мне 15 лет или мне 4 года или мне 21 год.

Паскаль

Question

Информатика

Валентин

21 октября, 09:35

Помогите!

Напечатайте фразу "Мне n лет", согласовав число n (n<=99) с фразой. Например, мне 15 лет или мне 4 года или мне 21 год.

Паскаль

+4

Ответы (1)

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

Декабриныч · Answer 1

Program vozrast;

var n: integer;

begin

writeln ('Введите возраст') ;

readln (n) ;

if (n=1) or (n mod 10 = 1) then writeln ('Мне ', n,' год')

else if (n>1) and (n<5) or (n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4) then writeln ('Мне ', n,' года')

else writeln ('Мне ', n, ' лет') ;

end.

Помогите!Напечатайте фразу "Мне n лет", согласовав число n (n<=99) с фразой. Например, мне 15 лет или мне 4 года или мне 21 год.Паскаль

Помогите!

Напечатайте фразу "Мне n лет", согласовав число n (n<=99) с фразой. Например, мне 15 лет или мне 4 года или мне 21 год.

Паскаль