вводится номер месяца. вывести пору года для этого месяца 1-зима,...,3-весна,...,8-лето,.... Пожалуйста. язык Паскаль.
276
ОТВЕТЫ
var s: integer;
begin
readln(s);
if (s=12) or (s=1) or (s=2) then writeln('зима')
else
if (s=3) or (s=4) or (s=5) then writeln('весна)
else
(s=6) or (s=7) or (s=8) then writeln('лето')
else
writeln('осень');
end;
begin
readln(s);
if (s=12) or (s=1) or (s=2) then writeln('зима')
else
if (s=3) or (s=4) or (s=5) then writeln('весна)
else
(s=6) or (s=7) or (s=8) then writeln('лето')
else
writeln('осень');
end;
7
Отв. дан
Vular
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Kerador
новый ящик электронной почты абонента - это ...
2018-09-25 00:00:00
Максимильян
Пожалуйста посчитайте пожалуйста с домашнем заданием по информатике8) Диапазон ...
2018-09-25 00:00:00
Androdred
школьники собрали в течении трех дней 84 килограмма различных ...
2018-09-25 00:00:00
Gavilore
Найдите с точностью до десятых среднее чисел : 8,1 ...
2018-09-25 00:00:00