Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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