Составить прогрмму в паскале-кейс.которая по заданному году и номеру месяца m определяет...

Question

Составить прогрмму в паскале-кейс.
которая по заданному году и номеру месяца m определяет оличество дней в этом месяце

Answer 1

Var
  n, y: integer;

begin
  write('Введите месяц (1-12) и год (2001-2099): ');
  readln(n, y);
  case n of
    1, 3, 5, 7, 8, 10, 12: writeln('31 день');
    4, 6, 9, 11: writeln('30 дней');
    2: if y mod 4 = 0 then write('29 дней') else write('28 дней')
  end
end.

Тестовое решение:
Введите месяц (1-12) и год (2001-2099): 7 2014
31 день

Comments

программа не работает. что с ней не так?

---

после 2: if y mod 4 = 0 then write('29 дней') else write('28 дней') - выдает ошибку

---

я это поняла, что пример ваш и т.д. но mod должен быть чему то равен, а у вас он ничему не равен

---

мне учитель сказала, что программа не верна.т.к.mod должен чему то равняться.вот