發表新討論
#5477: 求解！！！！！


lsramon (ls瞿亦任)

學校 : 上海市娄山中学
編號 : 18743
來源 : [125.227.248.156]
最後登入時間 ：
2014-11-11 12:14:09
a010. 因數分解 | From: [60.63.49.7] | 發表日期 : 2011-08-02 21:08
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 (保持好奇心)

學校 : 臺中市私立明道高級中學
編號 : 18826
來源 : [140.113.207.250]
最後登入時間 ：
2019-01-21 21:20:44
a010. 因數分解 | From: [114.38.58.54] | 發表日期 : 2011-08-02 21:19
不要隨便動用 GOTO 啊...... 
#5480: Re:求解！！！！！


grd (保持好奇心)

學校 : 臺中市私立明道高級中學
編號 : 18826
來源 : [140.113.207.250]
最後登入時間 ：
2019-01-21 21:20:44
a010. 因數分解 | From: [114.38.58.54] | 發表日期 : 2011-08-02 23:59

 

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

 
ZeroJudge Forum