Question

Ввести номер месяца от 1 до 12,напечатать время года от зимы до осени. Если введенное число не является месяцем года, вывести на экран сообщение «Ошибка».Паскаль!!!Срочно!!! Заранее спасибо!

Answer 1

Ответ:

var a: integer;

begin

writeln('Введите № месяца');

readln(a);

case a of

1: begin writeln('Январь Зима'); end;

2: begin writeln('Февраль - Зима'); end;

3: begin writeln('Март - Весна'); end;

4: begin writeln('Апрель - Весна'); end;

5: begin writeln('Май - Весна'); end;

6: begin writeln('Июнь - Лето'); end;

7: begin writeln('Июль - Лето'); end;

8: begin writeln('Август - Лето'); end;

9: begin writeln('Сентябрь - Осень'); end;

10: begin writeln('Октябрь - Осень'); end;

11: begin writeln('Ноябрь - Осень'); end;

12: begin writeln('Декабрь - Зима'); end;

 else  writeln('Ошибка. Введенный номер не является номером какого-либо месяца');

 end;

 readln

 end.

Объяснение: