892 acmp.ru(решение на четырёх языка)

892 acmp.ru(решение на четырёх языка)

Программист121

5 лет назад

2,159 Просмотров

Ссылки и html тэги не поддерживаются


Комментарии:

@bahamyrza6042
@bahamyrza6042 - 10.02.2019 13:15

var a:longint;
begin
read(a);begin
if(a=1)and(a=2)and(a=12)then write('Winter')else
if(a=3)and(a=4)and(a=5)then write('Spring')else
if(a=9)and(a=10)and(a=11)then write('Autumn')else
if(a=6)and(a=7)and(a=8)then write('Summer')else
write('Error');end
end.

Ответить