40 баллов !!!Напишите программку, которая по порядковому номеру месяца выводит на

язык какой?

я на python напишу

Здесь - Паскаль

Непременно через if ? Нельзя через Case ?

Обязательно через if

только, что отвечал на таковой же вопрос))))

Причём вопрос этот же человек задал

Здесь есть несколько вариантов, как это можно записать:

Если номера месяцев не превысят 12, то есть имеются ввиду только месяцы 1-го года, то вот так:


Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
if (N = 12)or(N = 1)or(N = 2) then WriteLn('Зима') //если N = 12, 1 либо 2, то выводим 'Зима', по другому идём по последующей ветке if, проверяем последующее условие
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') // здесь точно также N = 3, 4 либо 5, если нет - то проверяем последующее условие
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.


Если же номер месяца может превысить 12, то перед проверкой необходимо отыскать остаток от дробленья этого числа на количество месяцев, то есть на 12. При этом остаток от дробления 12 на 12 = 0.

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
N:= N mod 12;
if (N = 0)or(N = 1)or(N = 2) then WriteLn('Зима')
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна')
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Эти же самые условия можно записать по другому:
if (Ngt;=0)and(Nlt;=2) then
либо:
if (Ngt;=0)and(Nlt;3) then

Var n:integer;
begin
write('n = ');
readln(n);
if n in [1,2,12] then writeln('Зима')
else if n in [3,4,5] then writeln('Весна')
     else if n in [6,7,8] then writeln('Лето')
          else if n in [9,10,11] then writeln('Осень')
               else writeln('Ошибка ввода');
end.

Пример:
n = 3
Весна