Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 3.

Question

Гаврила

30 июля, 11:22

+5

Ответы (1)

Знаете ответ?

Боряха · Answer 1

Var A, K:integer;

Begin

Read (A) ;

K:=0;

While A 0 do

Begin

if A mod 6 = 0 then K:=K+1;

Read (A)

End;

Write (K)

End.