Ответы на вопрос:
Uses crt; var dd,mm,gg: integer; begin readln(dd,mm,gg); case dd of 1..5: writeln('начало'); 6..14: writeln('первая половина'); 15: writeln('середина'); 16..25: writeln('вторая половина'); 26..31: writeln('конец'); end; case mm of 1: writeln('января'); 2: writeln('февраля'); 3: writeln('марта'); 4: writeln('апреля'); 5: writeln('мая'); 6: writeln('июня'); 7: writeln('июля'); 8: writeln('августа'); 9: writeln('сентября'); 10: writeln('октября'); 11: writeln('ноября'); 12: writeln('декабря'); end; if gg mod 4=0 then writeln ('високосный') else writeln('не високосный'); end. var a: integer; begin readln(a); writeln(a mod 10,a); end.
Популярно: Информатика
-
21dasha2116.03.2020 16:08
-
messi11421.07.2022 04:30
-
КостяТрестьян16.07.2020 02:43
-
osadcha200411.09.2020 16:35
-
kiranay200708.12.2022 00:29
-
magomedova1710215.03.2021 13:16
-
apologise12.08.2021 06:25
-
пистолетМакарова01.04.2021 11:21
-
Даниил55577714.07.2021 21:26
-
mustafaalbakov23.11.2020 05:04