Найти все простые делители натурального числа N. Входные данные: Ввести одно число N (1 меньше =N меньше =200000000). Выходные данные: Вывести все простые делители натурального числа N в порядке их возрастания.

Найти все простые делители натурального числа N. Входные данные: Ввести одно число N (1<=N<=200000000). Выходные данные: Вывести все простые делители натурального числа N в порядке их возрастания.
Гость
Ответ(ы) на вопрос:
Гость
var i,k,n,m: integer; begin   write('N = '); readln(n);   m:=round(sqrt(n));   i:=2; k:=1;   repeat     if (n mod i=0) then     begin       if i<>k then        begin         write(i,' ');         k:=i;       end;         n:=n div i;       m:=round(sqrt(n));       i:=1;     end;     i:=i+1;   until i>m;   if k<>n then writeln(n); end.    N = 43021568 2 163 1031 N = 625 5  N = 189756328 2 67 354023
Не нашли ответ?
Ответить на вопрос
Похожие вопросы