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

Question

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

анна2259 · Answer

vara,i,res: integer;beginwriteln( Введите число );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.Объяснение:...

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

Популярные вопросы