Ответы
Ответ дал:
0
//PascalABC.NET
begin
writeln('Введите порядковый номер месяца');
var a := ReadInteger();
case a of
12,1,2 : writeln('Зима');
3..5 : writeln('Весна');
6..8 : writeln('Лето');
9..11 : writeln('Осень');
else writeln('Вы живете в параллельной вселенной');
end
end.
begin
writeln('Введите порядковый номер месяца');
var a := ReadInteger();
case a of
12,1,2 : writeln('Зима');
3..5 : writeln('Весна');
6..8 : writeln('Лето');
9..11 : writeln('Осень');
else writeln('Вы живете в параллельной вселенной');
end
end.
Приложения:



Вас заинтересует
2 года назад
2 года назад
3 года назад
10 лет назад