#5477: 求解!!!!!


lsramon (ls瞿亦任)


label 1;
var
  i,n,a:longint;
  f:boolean;
begin
while not eof do begin
  readln(n);
  f:=false;
  i:=2;
  while n>=i do begin
    while n mod i=0 do begin
      if a=i then begin write('^'); goto 1;end;
      if f then write('*') else f:= true;
 1:   write(i);
      a:=i;
      n:=n div i;
    end;
    i:=i+1;
  end;
end;
end.
 
我是新手,能不能帮我一下 
#5478: Re:求解!!!!!


grd (保持好奇心)


不要隨便動用 GOTO 啊......
#5480: Re:求解!!!!!


grd (保持好奇心)


 

 "*"號的空白和換行要注意