Напишите пожалуйста программу для Паскаля АВС!!! Заранее спасибо :3 Известен возраст (целое число от 1 до 99). В зависимости от возраста вывести на экран фразу: «Мне … лет» «Мне …года» «Мне …. Год» подсказка: Воспользуйтесь фу...
Напишите пожалуйста программу для Паскаля АВС!!! Заранее спасибо :3
Известен возраст (целое число от 1 до 99). В зависимости от возраста вывести на экран фразу:
«Мне … лет»
«Мне …года»
«Мне …. Год»
подсказка: Воспользуйтесь функцией mod (искать в справочных материалах)
Гость
Ответ(ы) на вопрос:
ГостьVar A : Byte;
Begin
Readln(A);
Write('Мне ',A,' ');
Case A mod 10 of
0,5..9 : Writeln('лет');
2..4 : Writeln('года');
1 : Writeln('год');
end;
end.
Не нашли ответ?
Похожие вопросы