谁能详细讲讲兔子繁殖问题
发布网友
发布时间：2022-05-01 23:00
共1个回答
热心网友
时间：2022-06-24 16:26
1，1，2，3，5，8，13，...
program fbnq;
var d,b,c:real;
a,i:integer;
begin
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
write('i=');
read(i);
b:=1;
c:=1;
if (i=1) then write(b:0:0);
if (i=2) then write(b:0:0,',',c:0:0);
if (i=0) then write('ERROR!');
if i>=3 then
begin
write(b:0:0,',',c:0:0);
for a:=3 to i do
begin
d:=b+c;
write(',',d:0:0);
b:=c;
c:=d;
end;
end;
readln;
readln;
end.
不会Pascal，摘自：http://www.blogcn.com/u/74/54/byzzl/index.html
