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