10 класс, паскаль С экрана запрашивается номер месяца. В зависимости от введенного значения на экран выводится либо сообщение о том, какому времени года этот месяц принадлежит, либо о том, что месяца с таким номером не существу...
10 класс, паскаль
С экрана запрашивается номер месяца. В зависимости от введенного
значения на экран выводится либо сообщение о том, какому времени
года этот месяц принадлежит, либо о том, что месяца с таким номером
не существует. Каждое время года выводится своим цветом:
зима - белым, весна - зеленым, лето - красным, осень - желтым.
Сообщение о том, что месяца с таким номером не существует, - серым.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы