shulie.pas

来自「本人 菜鸟+学生 ！ 老鸟指教的说 这些是自己写的一写PAS」· PAS 代码 · 共 15 行

program ex1;
     var   n:real;
     function f(n:real):real;
  begin
   if n=1 then f:=1
    else if n=2 then f:=1
     else if n=3 then f:=2
       else f:=f(n)+f(n-1)+f(n-2);
  end;
  begin
   write('n=');
   readln(n);
   writeln('f=',f(n):1:0);
   readln
  end.