Пожалуйста помогите (Паскаль)

Question

Пожалуйста помогите (Паскаль)

---

Answer 1

Var
  n,k:integer;
begin
  Writeln('Вводите натуральные числа, 0 - окончание ввода');
  k:=0;
  repeat
    Read(n);
    if n<>0 then
      if (n mod 7 = 0) and (n mod 2 =0) then Inc(k)
  until n=0;
  Writeln('Количество чисел, кратных 7: ',k)
end.

Тестовое решение:
Вводите натуральные числа, 0 - окончание ввода
3242 533 49 756 36 847 753 112 0
Количество чисел, кратных 7: 2

Comments

а что значит lnc(k)

---

Inc() - стандартная функция языка Паскаль, увеличивающая на 1 значение аргумента. Inc(k) эквивалентно k:=k+1

---

спасибо)

---

Вместо if (n mod 7 = 0) and (n mod 2 =0) then Inc(k) можно было написать более просто: if n mod 14 = 0 then Inc(k)

---

Но тогда надо быть готовым объяснить, что поскольку 7 и 2 - взаимно простые числа, требование четности и делимости на 7 равнозначно требованию делимости на 14.