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

Question

Владислава Чистякова

Информатика

26 июля, 23:38

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

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Сандро · Answer 1

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.