kot

Mam napisać program liczący ciąg Fibonacciego w Pascalu. help!

+0 pkt.
Odpowiedz

Odpowiedzi: 2

about 15 years ago

program ciagFib; uses crt; var liczba: integer; function fib(n:integer):integer; begin if (n=1) or (n=0) then fib:=n else if n>1 then fib:=fib(n-1)+fib(n-2); end; begin writeln('Podaj n: '); readln(liczba); writeln('Wynik: ', fib(liczba)); repeat until keypressed; end.

Aleksander

Intermediate Odpowiedzi: 79 0 people got help
about 15 years ago

dzięki

kot

Newbie Odpowiedzi: 5 0 people got help

Najnowsze pytania w kategorii Informatyka

Ładuj więcej