Ответы на вопрос:
Var n: integer; begin writeln('январь - первый месяц'); writeln('введите номер месяца'); readln(n); case n mod 12 of 0,1,2: write('зима'); 3,4,5: write('весна'); 6,7,8: write('лето'); 9,10,11: write('осень'); end; end.
Популярно: Информатика
-
dossovatomiris03019.07.2021 04:09
-
Пофиг1107.12.2020 11:39
-
anastasiyaaldo26.02.2021 16:35
-
bogachevavalery24.05.2020 00:49
-
tseykalo1821.07.2022 06:09
-
dimaonisko14.04.2020 05:27
-
makssabarov14.02.2021 08:57
-
ang1808.12.2021 13:58
-
yuraseven7710.06.2022 18:28
-
Saneitrix06.12.2020 08:47