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

Question

Информатика

Даниила

31 октября, 10:43

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

+4

Ответы (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.