Найти все простые делители натурального числа 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
Не нашли ответ?
Похожие вопросы