Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

var a,b,n:real;

begin

writeln(vvedite chislo);

readln(a);

b=1;

n=b;

while b

begin

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

b:=b+2;

end;

writeln(n = ,n);

readln;

end.