Question

Напишите программу которая в последовательности натуральных чисел определяет количество всех чисел, кратных 6 и оканчивающихся на 0. программа получает на вход натуральные числа, кол-во введенных чисел неизвестно, последовательность чисел оканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). кол-во чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число: кол-во всех чисел последовательности, кратных 6 и оканчивающихся на 0.

Answer 1

Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=0) then
k:=k+1;
readln(a);
end;
writeln(k);
end.