Напишите пожалуйста программу для Паскаля АВС!!! Заранее спасибо :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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
