10 класс, паскаль
С экрана запрашивается номер месяца. В зависимости от введенного
значения на экран выводится либо сообщение о том, какому времени
года этот месяц принадлежит, либо о том, что месяца с таким номером
не существует. Каждое время года выводится своим цветом:
зима - белым, весна - зеленым, лето - красным, осень - желтым.
Сообщение о том, что месяца с таким номером не существует, - серым.
Answers & Comments
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.