test4.pl

来自「pl/0编译器,生成汇编语言,java代码,初学者都能看明白,并且补充很多的注释」· PL 代码 · 共 15 行

const n=20;
var f1,f2,f,i;
begin
  f1:=1;
  f2:=1;
  i:=1;
  while i<=n do
    begin
	  write(f1);
	  f:=f1+f2;
	  f1:=f2;
	  f2:=f;
	  i:=i+1
	end
end.