Язык Паскаль. Разложение натурального числа на простые множители

Как разложить число на множители? Вспомним математику основной школы.

Выполним разложение чисел 360, 192, 36, 44 на простые множители.

В этой публикации приведем код программы для получения простых множителей некоторого натурального числа N.

Как будем решать задачу

Возьмем за первый предполагаемый множитель первое простое число j=2. Организуем внешний цикл пока число больше 1. В этом цикле организуем внутренний цикл пока число делится на j без остатка. Во внутреннем цикле будем уменьшать число в j раз и выводить множитель j на экран. Как только число перестанет делится на множитель j (перестанет работать внутренний цикл), во внешнем цикле увеличим j на 1.

Программа решения задачи на языке Паскаль

var n,j:int64;

begin

  writeln('Введите число');

  readln(n);

  j:=2;

  while n>1 do

  begin

    while n mod j = 0 do

    begin

      writeln('Множитель ',j);

      n:=n div j;

    end;

    j:=j+1;

  end;

end.

Результаты запуска программы

Запуск 1

Запуск 2