Амне нужна , у нас программа pascal abc. пиши правильнее, ибер ошибок

AmAss AmAss    1   12.03.2019 17:36    0

Ответы
danik174 danik174  25.05.2020 02:19

1) var v: integer;

begin

writeln('Введите номер месяца: ');

readln(v);

if (v=12) or (v=1) or (v=2) then

writeln('Ваше время года: Зима.')

else

if (v=3) or (v=4) or (v=5) then

writeln('Ваше время года: Весна.')

else

if (v=6) or (v=7) or (v=8) then

writeln('Ваше время года: Лето.')

else

if (v=9) or (v=10) or (v=11) then

writeln('Ваше время года: Осень.')

else

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика