киртой
Опубликовано 6 лет назад по предмету Информатика от киртой


помогите составить программу.

  1. Ответ
    Ответ дан AnonimAnonimAnon
    program z;var n:Integer;begin write('Введите номер месяца: '); read(n); if (n>=3) and (n<=5) then WriteLn('Весна') else if (n>=6) and (n<=8) then Writeln('Лето') else if (n>=9) and (n<=11) then Writeln('Осень') else if (n=12) or (n=1) or (n=2) then Writeln('Зима') else WriteLn('Ошибка')end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц