Написать программу для Паскаль через оператор Case.

Для целого числа K от 1 до 99 напечаать фразу "мне K лет", учитывая при этом что при вводе некоторых значений K слово "лет" надо заменить на слово "год" или "года".

Question

Информатика

Ефросимыч

6 октября, 21:38

Написать программу для Паскаль через оператор Case.

Для целого числа K от 1 до 99 напечаать фразу "мне K лет", учитывая при этом что при вводе некоторых значений K слово "лет" надо заменить на слово "год" или "года".

+1

Ответы (1)

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

Евдокиюшка · Answer 1

Program p1;

Var a:integer;

Begin

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

Readln (a) ;

Case a of

11 ... 14:Write ('Мне ', a,' лет') ;

else

Case a mod 10 of

1:Write ('Мне ', a,' год') ;

2 ... 4:Write ('Мне ', a,' года') ;

else Write ('Мне ', a,' лет') ;

End;

End;

End.