Информатика: Паскаль ! назовите сезон года по номеру месяца

RTF1111

30.01.2023 11:18

Информатика

Есть ответ 👍

Паскаль ! назовите сезон года по номеру месяца

132

431

Посмотреть ответы 3

Ответы на вопрос:

Kso57

Информатика

4,4(79 оценок)

1-январь,2-февраль,3-март,4-апрель,5-май,6-июнь,7-июль,8-август,9-сентябрь,10-октябрь,11-ноябрь,12-декабрь

Олег4311

Информатика

4,7(33 оценок)

Var month: integer; season: string; begin write('введите номер месяца: '); readln(month); if (month=1) or (month=2) or (month=12) then season : = 'зима' else if (month=3) or (month=4) or (month=5) then season : = 'весна' else if (month=6) or (month=7) or (month=8) then season : = 'лето' else season : = 'осень'; writeln('это ',season) end.