Написать программу которая вводит номер месяца и определяет по этому номеру время года, и название выводит на экран и если число больше 12, то такого номера месяца не существует, язык паскаль
Написать программу которая вводит номер месяца и определяет по этому номеру время года, и название выводит на экран и если число больше 12, то такого номера месяца не существует, язык паскаль
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
monthNumber: integer;
begin
writeln′Enterthenumberofthemonth:′'Enter the number of the month: '′Enterthenumberofthemonth:′;
readlnmonthNumbermonthNumbermonthNumber;
case monthNumber of
1, 2, 12: writeln′Winter′'Winter'′Winter′;
3, 4, 5: writeln′Spring′'Spring'′Spring′;
6, 7, 8: writeln′Summer′'Summer'′Summer′;
9, 10, 11: writeln′Autumn′'Autumn'′Autumn′;
else
writeln′Thereisnosuchmonthnumber′'There is no such month number'′Thereisnosuchmonthnumber′;
end;
end.