Question

переменная целого типа x определяет порядковый номер месяца невысокосного года.оператор CASE по порядковому номеру месяца выводит количество дней в данном месяце сделать программу на pascal

Answer 1

var N:integer;

BEGIN

readln(N);

case N of

1,3,5,7,8,10,12:write('31');

4,6,9,11:write('30');

2:write('28');

end;

end.

Answer 2

Для решения данной задачи на Pascal, можно использовать оператор CASE, который позволяет выполнить различные действия в зависимости от значения переменной x. В невисокосном году, количество дней в каждом месяце фиксировано, и мы можем определить их следующим образом:

pascalCopy code
program DaysInMonth;

var
  x: integer;

begin
  write('Введите порядковый номер месяца (1-12): ');
  readln(x);

  case x of
    1: writeln('Январь - 31 день');
    2: writeln('Февраль - 28 дней');
    3: writeln('Март - 31 день');
    4: writeln('Апрель - 30 дней');
    5: writeln('Май - 31 день');
    6: writeln('Июнь - 30 дней');
    7: writeln('Июль - 31 день');
    8: writeln('Август - 31 день');
    9: writeln('Сентябрь - 30 дней');
    10: writeln('Октябрь - 31 день');
    11: writeln('Ноябрь - 30 дней');
    12: writeln('Декабрь - 31 день');
    else
      writeln('Некорректный порядковый номер месяца');
  end;

  readln;
end.

Программа запрашивает у пользователя порядковый номер месяца и выводит количество дней в данном месяце. Обратите внимание, что мы не учитываем високосные года в этой программе, так как в задаче упоминается, что речь идет о невисокосном годе.