найти сумму нечётных делителей натурального числа
Паскаль!!

1

Ответы и объяснения

2012-11-28T21:16:32+04:00

var a,b,n:real;

begin

writeln('vvedite chislo');

readln(a);

b=1;

n=b;

while b<a do

begin

if (a mod b = 0) then n:=n*b;

b:=b+2;

end;

writeln('n = ',n);

readln;

end.