Курсовая работа: Проект разработки программы-калькулятора CalcKurs на языке программирования Pascal

end;

{конец вывода делителей}

n:= 1;

n1:= 0;

while c <> 1 do

begin

i:= 2;

while c mod i <> 0 do {проверка на делимостьс/без остатка}

Inc(i);

Inc(n1);

if n1 = 1 then

begin

numb[n]:= i;

powers[n]:= 1;

end

else

if numb[n] = i then Inc(powers[n])

else

begin

Inc(n); {увеличение кол-ва простых множителей}

numb[n]:= i;

powers[n]:= 1;

end; {while}

c:= c div i; {деление числа на простой множитель}

end; {while}

{\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

writeln;

writeln('кол-во простых множителей: ',n);

write('num = ');