Var n:integer; begin writeln('n='); readln(n); case n of 3,4,5:writeln('Весна'); 6,7,8:writeln('Лето'); 9,10,11:writeln('Осень'); 1,2,12:writeln('Зима'); end; end.
Var A:integer; Begin WriteLn('Введи номер месяца'); ReadLn(A); Case A mod 12 of 0..2:WriteLn('Зима'); 3..5:WriteLn('Весна'); 6..8:WriteLn('Лето'); 9..11:WriteLn('Осень'); End End.
Вариант с if :
Var A:integer; Begin WriteLn('Введи номер месяца'); 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.
begin
writeln('n=');
readln(n);
case n of
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
1,2,12:writeln('Зима');
end;
end.
A:integer;
Begin
WriteLn('Введи номер месяца');
ReadLn(A);
Case A mod 12 of
0..2:WriteLn('Зима');
3..5:WriteLn('Весна');
6..8:WriteLn('Лето');
9..11:WriteLn('Осень');
End
End.
Вариант с if :
Var A:integer;
Begin
WriteLn('Введи номер месяца');
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.