Question

По заданному году G и номера месяца M определите количество дней в месяце. Это нужно делать в Паскале(с помощью структуры Case).

Answer 1

Program Primer;
var
m,g:Integer;
begin
Write('Введите год: ');
ReadLn(g);
Write('Введите номер месяца: ');
ReadLn(m);
if (g mod 4=0) and (m=2)
then WriteLn('В феврале ',g,' года 29 дней')
else
case m 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;
end.

Answer 2

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

pascalCopy code
program DaysInMonth;

var
  G, M: Integer;
  Days: Integer;

begin
  writeln('Введите год:');
  readln(G);
  writeln('Введите номер месяца:');
  readln(M);

  case M of
    1, 3, 5, 7, 8, 10, 12:
      Days := 31;
    4, 6, 9, 11:
      Days := 30;
    2:
      begin
        if (G mod 4 = 0) and ((G mod 100 <> 0) or (G mod 400 = 0)) then
          Days := 29
        else
          Days := 28;
      end;
    else
      begin
        writeln('Недопустимый номер месяца.');
        exit;
      end;
  end;

  writeln('Количество дней в месяце: ', Days);
end.

В этом примере программа запрашивает у пользователя год G и номер месяца M, а затем использует структуру case для определения количества дней в заданном месяце. Для месяцев с 31 днем мы присваиваем переменной Days значение 31, для месяцев с 30 днями - значение 30, а для февраля проверяем условие високосного года с помощью оператора mod. Если условие выполняется, то присваиваем переменной Days значение 29, иначе - 28.

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