Работа 3.3 Упр.9 Задание 3 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 9. Составить программу, которая по заданному году и номеру месяца определяет количество дней в этом месяце. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-3/zad3/9 98

Подробный ответ

Для определения количества дней в месяце используем оператор выбора case. Для месяцев с постоянным числом дней сразу задаём:

$$1,3,5,7,8,10,12 \rightarrow 31$$
$$4,6,9,11 \rightarrow 30$$

Для февраля учитываем високосный год:

если $$g \bmod 400 = 0$$, то в феврале $$29$$ дней;
если $$g \bmod 100 = 0$$, но $$g \bmod 400 \ne 0$$, то $$28$$ дней;
если $$g \bmod 4 = 0$$, но $$g \bmod 100 \ne 0$$, то $$29$$ дней;
иначе $$28$$ дней.

var g,m,d:integer;
begin
  writeln(‘Введите год и месяц’);
  read(g,m);
  case m of
  1,3,5,7,8,10,12: d:=31;
  4,6,9,11: d:=30;
  2: if (g mod 4<>0) then d:=28 else
    if (g mod 100<>0) then d:=29 else
    if (g mod 400<>0) then d:=28 else d:=29;
  end;
  writeln(d);
end.