Предмет:
ИнформатикаАвтор:
анонимvar n: longint;
begin write(\'Введите порядковый номер месяца: \'); readln(n); if (n = 1) then writeln(\'Данный месяц — январь. Время года — зима.\'); if (n = 2) then writeln(\'Данный месяц — февраль. Время года — зима.\'); if (n = 3) then writeln(\'Данный месяц — март. Время года — весна.\'); if (n = 4) then writeln(\'Данный месяц — апрель. Время года — весна.\'); if (n = 5) then writeln(\'Данный месяц — май. Время года — весна.\'); if (n = 6) then writeln(\'Данный месяц — июнь. Время года — лето.\'); if (n = 7) then writeln(\'Данный месяц — июль. Время года — лето.\'); if (n = 8) then writeln(\'Данный месяц — август. Время года — лето.\'); if (n = 9) then writeln(\'Данный месяц — сентябрь. Время года — осень.\'); if (n = 10) then writeln(\'Данный месяц — октябрь. Время года — осень.\'); if (n = 11) then writeln(\'Данный месяц — ноябрь. Время года — осень.\'); if (n = 12) then writeln(\'Данный месяц — январь. Время года — зима.\');end.
Автор:
babycollinsДобавить свой ответ
Предмет:
Другие предметыАвтор:
анонимОтветов:
Смотреть
Предмет:
Другие предметыАвтор:
анонимОтветов:
Смотреть