Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год","года" или "лет".

Question

Информатика

Гостомысл

26 января, 15:12

Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год","года" или "лет".

+1

Ответы (1)

Знаете ответ?

Гертруда · Answer 1

Var A : Byte;

Begin

Write ('Введите возраст: ')

Readln (A) ;

Write ('Мне ', A,' ') ;

Case A mod 10 of

0,5 ... 9 : Writeln ('лет') ;

2 ... 4 : Writeln ('года') ;

1 : Writeln ('год') ;

end;

end.