分解质因数 [复制链接]

输入一个数N, 分解质因数
N=45
45=3*3*5

var n,i,j:integer;
begin
readln(n);write(n,'=');
i:=1;
repeat
inc(i);
repeat
if (n mod i=0) then begin if (n div i<>1) then write(i,'*') else begin write(i);exit;end;
n:=n div i;end;
until n mod i=0;
until n=1;
end.

var i,n:integer;
begin
readln(n);
write(n,'=');
for i:=2 to n-1 do
while n mod i=0 do
begin
  n:=n div i;
  write(i);
  if n=1 then exit ;
  write('*');
end;
end.