Question

Помогите решить пожалуйста желательно Паскелем


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

Answer 1

пожалуйста
var x,m:integer;
begin
m:=0;
x:=-1;
while (x<>0) do
begin
readln(x);
if (x<>0)and(x mod 2=0) and(x mod 5=0) then m:=m+1;
end;
writeln(m);
end.

Answer 2

попробуй так

Answer 3

заработало?

Answer 4

да тока с этим что делать Количество чисел не превышает1000. Введённые числа не превышают 30 000.Программа должна вывести одно число: количество всех чётных чисел,кратных 5.