Ответы на вопрос:
Program pr1; uses crt; var dn: integer; begin clrscr; write('введите номер месяца: '); readln(dn); if (dn> 0) and (dn< 13) then begin case dn of 1,3,5,7,8,10,12: writeln('в этом месяце 31 день'); 4,6,9,11: writeln('в этом месяце 30 дней'); 2: writeln('в этом месяце 28 дней'); end; end else writeln('введите корректно'); readln; end.
Популярно: Информатика
-
Tles23.05.2023 17:04
-
flower5717.12.2021 08:09
-
ГолубьФедя07.12.2020 08:36
-
пупсикг17.01.2021 02:27
-
yhenik201505.10.2022 19:34
-
DarthTyranus31.07.2022 20:12
-
lizstys05.10.2021 23:47
-
MaxymMelehovets15.02.2023 18:33
-
Марина050617.02.2020 16:56
-
ученик144323.12.2022 10:14