Автор - serzhzid 10 лет назад

10 класс, паскаль

С экрана запрашивается номер месяца. В зависимости от введенного
значения на экран выводится либо сообщение о том, какому времени
года этот месяц принадлежит, либо о том, что месяца с таким номером
не существует. Каждое время года выводится своим цветом:
зима - белым, весна - зеленым, лето - красным, осень - желтым.
Сообщение о том, что месяца с таким номером не существует, - серым.

Ответ

Автор - HelenOK

Program PORA;

Var MONTH:integer;

begin

writе('Введіть порядковий номер місяця:');

readln(MONTH);

if (M0NTH<1) or (month>12)

then
writeln('Такого
місяця немає')

else

case MONTH of

3,4,5:writeln('Becнa');

6,7,8:writeln('Лiтo');

9,10,11l:writeln(Ociнь');

12,1,2:writeln('3имa')

end;

end.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.