作业帮pascal 的fibonacci问题.求第n项的值.这个为啥偶数的是对的.奇数输出就不对了.var a,b,c,n:integer;beginread(n);b:=0;c:=1;a:=0;repeatc:=c+b;b:=c+b;a:=a+1;until a=round(n div 2);if n mod 2=1 thenwrite(c);if n mod 2=0 thenwrite(b)en
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 14:52:40
pascal 的fibonacci问题.求第n项的值.这个为啥偶数的是对的.奇数输出就不对了.var a,b,c,n:integer;beginread(n);b:=0;c:=1;a:=0;repeatc:=c+b;b:=c+b;a:=a+1;until a=round(n div 2);if n mod 2=1 thenwrite(c);if n mod 2=0 thenwrite(b)en
pascal 的fibonacci问题.求第n项的值.这个为啥偶数的是对的.奇数输出就不对了.
var a,b,c,n:integer;
begin
read(n);
b:=0;
c:=1;
a:=0;
repeat
c:=c+b;
b:=c+b;
a:=a+1;
until a=round(n div 2);
if n mod 2=1 then
write(c);
if n mod 2=0 then
write(b)
end.
pascal 的fibonacci问题.求第n项的值.这个为啥偶数的是对的.奇数输出就不对了.var a,b,c,n:integer;beginread(n);b:=0;c:=1;a:=0;repeatc:=c+b;b:=c+b;a:=a+1;until a=round(n div 2);if n mod 2=1 thenwrite(c);if n mod 2=0 thenwrite(b)en
何苦这么写呢
var
i,n:integer;
a,b,c:qword;
begin
readln(n);
a:=1;b:=1;c:=1;
for i:=3 to n do begin
c:=a+b;
a:=b;
b:=c;
end;
writeln(c);
end.
你的代码虽然比我的代码再循环中少一次赋值,但是
until a=round(n div 2);
这一句要做一次整除运算,还要调用函数,就不如我的了