Question

Вводится номер месяца. вывести пору года для этого месяца 1-зима,...,3-весна,...,8-лето,.... Пожалуйста. язык Паскаль.

Answer 1

Var s: integer;
begin
readln(s);
if (s=12) or (s=1) or (s=2) then writeln('зима')
else
if (s=3) or (s=4) or (s=5) then writeln('весна)
else
(s=6) or (s=7) or (s=8) then writeln('лето')
else
writeln('осень');
end;