Задать вопрос
31 января, 05:15

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

+3
Ответы (1)
  1. 31 января, 08:48
    0
    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
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти все простые делители натурального числа N. Входные данные: Ввести одно число N (1 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы