input.txt

来自「词法分析,里面有一个bug,")"后面不能跟其他符号,但是这个更像是自己作的,程」· 文本 代码 · 共 12 行

program fibonacci; 
		var m:integer; 
		function fib (n:integer) :integer; 
			begin 
			if n=0 then fib:=0 
				else if n=1 then fib:=1 
					else fib:= fib(n-1) +fib(n-2) 
                        end; 
		begin 
			read(m) ;
			write(fib(m) )
		end.