Ответы
Ответ дал:
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.
Приложения:
![](https://st.uroker.com/files/2ac/2ac5930b225f0a8c607389c257fe7b53.png)
![](https://st.uroker.com/files/9ff/9ff0a32956675e8668a2ffa4f3b458d4.png)
![](https://st.uroker.com/files/160/160d54650bd2d61e6ed00dedd525be3b.png)
Вас заинтересует
2 года назад
2 года назад
8 лет назад