Ответы на вопрос:
Var mes: array[1..12] of string = ('январь','февраль','март', 'апрель', 'май','июнь','июль','август', 'сентябрь','октябрь','ноябрь','декабрь'); vr: array[0..3] of string = ('зима','весна','лето','осень'); n: integer; begin write('месяц: '); readln(n); write(mes[n]); n: =n mod 12; write(' ',vr[n div 3]); end. месяц: 7 июль летомесяц: 12 декабрь зима
Популярно: Информатика
-
innamatvijchuk29.03.2020 14:53
-
19798326.05.2020 19:02
-
natusestfons29.07.2020 09:25
-
Infinity16710.12.2022 07:39
-
german15080118.04.2020 13:13
-
Georgiy11111104.08.2022 20:31
-
logan925.03.2020 05:13
-
dudych204528.10.2021 15:46
-
egorkrutou9830.04.2020 05:21
-
Dangerous002.07.2022 22:10