Question

Введите число - номер месяца(1...12) определите, сколько дней в этом месяце, используя сложные условия. Паскаль!

Answer 1

Ответ:

Программу не смогу написать, но алгоритм простейший - организуешь 2 массива

A[1..12] = [Январь, Февраль, Март, ..Декабрь] и B[1..12] = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]

Находишь введенное название месяца в массиве А и отвечаешь соответствующим элементом массива В.

А если по номеру - тогда даже массива А не нужно, просто берешь соответствующий элемент из В, и всё.

Объяснение:

Answer 2

Вот пример кода на Pascal, который определяет количество дней в месяце, введенном пользователем:

pascalCopy code
program DaysInMonth;

var
  month: integer;

begin
  writeln('Введите номер месяца (1...12): ');
  readln(month);

  case month of
    1, 3, 5, 7, 8, 10, 12:
      writeln('В этом месяце 31 день');
    4, 6, 9, 11:
      writeln('В этом месяце 30 дней');
    2:
      begin
        writeln('Введите год: ');
        var year: integer;
        readln(year);

        if (year mod 4 = 0) and (year mod 100 <> 0) or (year mod 400 = 0) then
          writeln('В этом месяце 29 дней')
        else
          writeln('В этом месяце 28 дней');
      end;
    else
      writeln('Неправильный номер месяца');
  end;
end.

Пользователь вводит номер месяца, а программа использует условные операторы case и if для определения количества дней в данном месяце. В случае с февралем, программа запрашивает также год для проверки на високосность, чтобы определить, 28 или 29 дней в этом месяце.