Question

Написать программу на языке pascal. 1: вводится название месяца. вывести пору года для этого месяца (январь - зима, …, март - весна, …, август - лето, …); 2: вводиться пора года. вывести названия месяцев для этой поры года.

Answer 1

Var s:string;

begin
readln(s);
case s of
'Январь','Декабрь','Февраль': writeln('Зима');         
'Март','Апрель','Май' : writeln('Весна');         
'Июнь','Июль','Август' : writeln('Лето');         
 'Сентябрь','Октябрь','Ноябрь' : writeln('Осень');         
'Зима' : writeln('Декабрь ','Январь ','Февраль');         
 'Весна' : writeln('Март ','Апрель ','Май');         
 'Лето' : writeln('Июнь ','Июль ','Август');         
'Осень' : writeln('Сентябрь ','Октябрь ','Ноябрь');
end;
end.