Написать программу ** языке Pascal. Задание 1: Вводится название месяца. Вывести пору...

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.