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

Question

Информатика

Енюта

13 сентября, 21:31

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

+1

Ответы (1)

Знаете ответ на вопрос?

Гера · 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 ik 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 kn then writeln (n) ;

end.

N = 43021568

2 163 1031

N = 625

5

N = 189756328

2 67 354023