Question

/ивт 9 класс делфи / паскаль/ 50 напишите программу, которая по данному натуральному числу n выводит все его простые натуральные делители с учетом кратности. время работы программы должно быть пропорционально корню из n. входные данные программа получает на вход одно число n< 2^31. выходные данные программа должна вывести все простые натуральные делители числа n с учетом кратности в порядке неубывания. примеры входные данные 6 выходные данные 2 3

Answer 1

Var
 n,d,k:int64;
begin
 read(n);
 d := 2; k := 4;
 while k <= n do
  begin
  while n mod d = 0 do
    begin
    write(d,' ');
    n := n div d;
    end;
  k := k + 2*d + 1;
  d := d + 1;
  end;
 if n > 1 then write(n);
end.