Ответ:

Дан номер месяца (1 январь, ... ). Вывести название соответствующего времени года (зима, весна и...

По заданному номеру месяца вывести на печать название времени года

2.По заданному номеру месяца m вывести на печать название времени года.Выполнить в Турбопаскале.

По заданному номеру месяца m вывести на печать название времени года.

По заданному номеру месяца m вывести на печать название времени года.

Цикл. Вывести название соответствующего времени года по номеру месяца.

Помогите, пожалуйста! Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 — февраль и.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

program vremya_goda;

uses crt;

var

n:integer;

begin

 clrscr;

 writeln('введите номер месяца');

 writeln('для выхода нажмите "0"');

 repeat

 readln(n);

 case n of

       0  : writeln('выход из программы');

   1,2,12 : writeln('зима');

   3,4,5  : writeln('весна');

   6,7,8  : writeln('лето');

   9,10,11: writeln('осень');

   else writeln('"Ошибка ввода данных"');

 end;

 until n=0;

 textcolor(10);

 writeln('программа работу закончила!');

 readln;

end.