Question

Напишите программу, которая в последовательности натуральных чисел находит количество четных чисел кратных 7.
Вход:программа получает на вход последовательность натуральных чисел, заканчивающихся 0.
Выход:программа должна вывести одно число-количество четных чисел кратных 7.
входные данные
35 70 45 9 105 0
выходные данные
1

Answer 1

Var
  A: array of integer;
  i, num, len, amount: integer;
begin
  amount := 0; len := 1; i := 0; num := -1;
  write('Введите последовательность чисел -> ');
  repeat
    SetLength(A, len);
    read(A[i]);
    num := A[i];
    i += 1;
    len += 1; // длина массива
  until (num = 0);
  for i := 0 to High(A) do
    if (A[i] mod 7 = 0) and (A[i] mod 2 = 0) and (A[i] <> 0) then
        amount += 1;
  write('Количество чётных чисел, кратных 7: ', amount, '.');
end.