Предмет: Информатика, автор: vlad1chka

Составьте программу которая запрашивает номер месяца целое число от одного до 12 Выводит на экран название поры года
Информатика Паскаль СРОЧНО!!!! ​

Ответы

Автор ответа: Arkassssha
10

Код программы:

var a:integer;

begin

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

 readln(a);

 case a of

   1:writeln('Январь');

   2:writeln('Февраль');

   3:writeln('Март');

   4:writeln('Апрель');

   5:writeln('Май');

   6:writeln('Июнь');

   7:writeln('Июль');

   8:writeln('Август');

   9:writeln('Сентябрь');

   10:writeln('Октябрь');

   11:writeln('Ноябрь');

   12:writeln('Декабрь');

 end;

end.

Автор ответа: vnlptn
11

program Year;

var a: integer;

begin

   read(a);

   if (a = 1) or (a = 2) or (a = 12) then

       write('Зима');

   if (a >= 3) and (a <= 5) then

       write('Весна');

   if (a >= 6) and (a <= 8) then

       write('Лето');

   if (a >= 9) and (a <= 11) then

       write('Осень');

end.

Похожие вопросы
Предмет: Химия, автор: МамаКриминал1