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