Question

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

Answer 1

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