Question

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

Answer 1

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.