Question

Паскаль срочна !    Назовите сезон года по номеру месяца

Answer 1

var
Month: integer;
Season: string;
begin
write('Введите номер месяца: ');
readln(Month);
if (Month=1) or (Month=2) or (Month=12) then
Season := 'Зима'
else if (Month=3) or (Month=4) or (Month=5) then
Season := 'Весна'
else if (Month=6) or (Month=7) or (Month=8) then
Season := 'Лето'
else Season := 'Осень';
writeln('Это ',Season)
end.

Answer 2

1-январь,2-февраль,3-март,4-апрель,5-май,6-июнь,7-июль,8-август,9-сентябрь,10-октябрь,11-ноябрь,12-декабрь

Answer 3

1,2,12-зима,3,4,5-весна,6,7,8-лето,9,10,11-осень