s-3.pas

来自「Tuzi＿pascal ＰＡＳＣＡＬ写的」· PAS 代码 · 共 16 行

PROGRAM tuzi(input,output);
  VAR
    n,number:integer;
  FUNCTION tu(yuefen:integer):integer;
    BEGIN
      IF yuefen=1
        THEN tu:=1
        ELSE IF yuefen=2
               THEN tu:=1
               ELSE tu:=tu(yuefen-1)+tu(yuefen-2);
    END;
  BEGIN
    read(n);
    number:=tu(n);
    writeln(n:10,number:10);
  END.