Составить программу для нахождения для данного натурального числа сумму его чётных делителей

Ответ:

var

a,i,res: integer;

begin

writeln('Введите число');

readln(a);

for i:=1 to a do

begin

if i mod 2=0 then

begin

if a mod i=0 then res:=res+i;

end;

end;

writeln(res);

end.

Объяснение: