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

Question

Информатика

Иуния

25 ноября, 09:26

Ввести возраст человека (от 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.