Дано натуральное число. Найти сумму его четных делителейPascal
Дано натуральное число. Найти сумму его четных делителей
Pascal
Гость
Ответ(ы) на вопрос:
Гостьfor i:=1 to n do begin
if ((n mod i = 0) and (i mod 2=0)) then sum:=sum+1;
end;
Не нашли ответ?
Похожие вопросы