Ввести название месяца и вывести на экран время года Pascal

Question

Информатика

Горгоний

13 октября, 02:46

Ввести название месяца и вывести на экран время года Pascal

+5

Ответы (1)

Знаете ответ на вопрос?

Пуся · Answer 1

var n:integer;

begin

cls;

writeln ('Введите номер месяца') ;

readln (n) ;

if (n=1) or (n=2) or (n=12) then

writeln ('Зима')

else

if (n=3) or (n=4) or (n=5) then

writeln ('Весна')

else

if (n=6) or (n=7) or (n=8) then

writeln ('Лето')

else

writeln ('Осень') ;

end.