Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите рекурсивную функцию, которая
раскладывает число на простые сомножители.
Пример:
Введите натуральное число:
378
378 = 2*3*3*3*7

Ответ оставил Гость

Var n : integer;
function factorize(n : integer): integer;
var d : integer;
begin
  d := 2;
  while d * d <= n do begin
    if n mod d = 0 then begin
      write(d, *);
      factorize(n div d);
      exit;
    end;
    d += 1;
  end;
  if n > 1 then write(n);
end;
begin
  writeln(Введите натуральное число:);
  readln(n);
  factorize(n);
end.