По номеру месяца определить время года(с использованием 4 условных операторов) Помогите составить программу в Pascal

Question

По номеру месяца определить время года(с использованием 4 условных операторов) Помогите составить программу в Pascal

Никита Макаров Профи (722), закрыт 12 лет назад

Дополнен 12 лет назад

В Pascal ABC

Answer 1

begin
var a:integer;
a:=3;
if (a=12) or (a=1) or (a=2) then writeln('зима');

if (a=3) or (a=4) or (a=5) then writeln('весна');

if (a=6) or (a=7) or (a=8) then writeln('лето');

if (a=9) or (a=10) or (a=11) then writeln('осень');

end.

Answer 2

на javaScript или php элементарно написал бы, паскалем не владею

Answer 3

В смысле, должно быть четыре if'a или не больше 4?

Answer 4

if месяц> 1 and месяц < 4 then 'весна'
и так далее

Answer 5

vgs: array [0..4] of string;
....
vgs[0]:='Зима';
vgs[1]:='Весна';
vgs[2]:='Лето';
vgs[3]:='Осень';
....

function vg(i:byte):string;// i - номер месяца от 1 до 12
begin
i:=(i div 3)mod 4; //теперь i номер квартала от 0 до 3
vg:=vgs[ i ];
end;
//а 4 условных оператора это плохо