Question

Дано натуральное число. Найти сумму его четных делителей

Pascal

Answer 1

for i:=1 to n do begin
if ((n mod i = 0) and (i mod 2=0)) then sum:=sum+1;
end;