Ответы на вопрос:
Var n, m: integer; begin write('n = '); read(n); m : = 50 * n + 45; write(m div 60); case m div 60 of 1: write(' час '); 2..4: write(' часа ') else write(' часов '); end; write(m mod 60); case m mod 60 of 1: write(' минута'); 2..4: write(' минуты'); else write(' минут'); end; end.
Популярно: Информатика
-
ДериПериКет14.04.2020 05:45
-
Соня12110301.06.2023 10:56
-
Ламинарка25.01.2020 15:08
-
Morozob11.05.2022 19:00
-
64bl9j822.04.2023 05:53
-
PoliShka1815.01.2021 03:38
-
РыбкаНемо09.10.2021 06:12
-
Kotliarrostislav27.08.2022 17:20
-
AnnaKnuazev26.06.2023 19:44
-
Tittans10118.09.2022 08:44