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