發表新討論
#10486: 求帮忙


caixin (华二杨旭晨)

學校 : 上海市娄山中学
編號 : 50447
來源 : [180.169.15.254]
最後登入時間 ：
2016-03-13 20:06:51
d580. 末日預言 -- raincole | From: [180.169.25.90] | 發表日期 : 2015-11-21 11:18

 

var
  n,i:byte;
  a,b,c:qword;
begin
  while not eof do begin
  readln(n);
  if n=1 then writeln(1)
         else if n=2 then writeln(2)
                     else begin
    a:=1;b:=2;
    for i:=3 to n do begin
      c:=a+b;
      a:=b;
      b:=c;
      end;
      writeln(c);
    end;
  end;
end.

那里错了

 
#11536: Re:求帮忙


tico88612 (Kagamine Rin)

學校 : 花蓮縣慈濟大學附中
編號 : 55080
來源 : [1.200.245.21]
最後登入時間 ：
2023-05-13 08:23:59
d580. 末日預言 -- raincole | From: [203.68.24.8] | 發表日期 : 2016-11-17 20:40

 

var
  n,i:byte;
  a,b,c:qword;
begin
  while not eof do begin
  readln(n);
  if n=1 then writeln(1)
         else if n=2 then writeln(2)
                     else begin
    a:=1;b:=2;
    for i:=3 to n do begin
      c:=a+b;
      a:=b;
      b:=c;
      end;
      writeln(c);
    end;
  end;
end.

那里错了

出來的數字要 mod 2012(題目敘述)


 
ZeroJudge Forum