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

Ой как сложно, а с if никак?

Ой как сложно, а с if никак?

А что тут сложного?=))

Добавил на if

Мы просто такого не проходили еще

var n:integer;beginwriteln('n=');readln(n);case n of3,4,5:writeln('Весна');6,7,8:writeln('Лето');9,10,11:writeln('Осень');1,2,12:writeln('Зима');end;end.

VarA:integer;BeginWriteLn('Введи номер месяца');ReadLn(A);Case A mod 12 of0..2:WriteLn('Зима');3..5:WriteLn('Весна');6..8:WriteLn('Лето');9..11:WriteLn('Осень');EndEnd.Вариант с if :Var A:integer;BeginWriteLn('Введи номер месяца');ReadLn(A);if (A mod 12)in[0..2] then WriteLn('Зима');if (A mod 12)in[3..5] then WriteLn('Весна');if (A mod 12)in[6..8] then WriteLn('Лето');if (A mod 12)in[9..11] then WriteLn('Осень');End.