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