Skocz do zawartości

Potrzebuję pomocy. Gdzie jest błąd???


dzastinn94

Polecane posty

Zadanie Rozmnażanie pantofelków

 

 

Był sobie pantofelek. Jak wiadomo, pantofelki rozmnażają się przez podział komórki. Aby pantofelek mógł się rozmnożyć (stworzyć drugiego pantofelka), musi minąć 1 dzień. Po jednym dniu dojrzewania, w każdym kolejnym dniu, pantofelek dzieli się i powstają z niego dwa pantofelki (jeden dojrzały, jeden niedojrzały).

Pierwszego dnia jest tylko jeden pantofelek. Drugiego dnia będzie też tylko jeden, gdyż pierwszego dnia był niedojrzały i nie mógł się rozmnożyć. Trzeciego dnia będą już istniały dwa pantofelki (jeden dojrzały i jeden niedojrzały), gdyż ten pierwszy się rozmnoży. Po czwartym dniu będą istnieć 3 pantofelki, po piątym 5, itd.

Zakładając, że pantofelki nigdy nie umierają, oblicz, ile będzie pantofelków po upłynięciu n dni.

 

Wejście

 

W pierwszej linii wejścia znajduje się jedna liczba całkowita d (1 <= d <= 100), która oznacza liczbę zestawów danych.

Każdy zestaw składa się z jednej liczby całkowitej n (1 <= n <= 45), oznaczającej liczbę dni, które upłynęły.

 

Wyjście

 

Na wyjściu należy dla każdego zestawu danych wypisać liczbę pantofelków po upłynięciu odpowiedniej liczby dni.

 

Przykład

 

Wejście:

4

5

6

7

8

 

Wyjście:

5

8

13

21

 

program Project1;

var d,n:longint;
function Fib(n:integer):longint;
begin
 if n=1 or n=2 then
Fib:=1
 else if n=0 then
Fib:=0
 else if n>2 then
Fib:=(Fib(n-1) + Fib(n-2));
end;

begin
 readln(d);
 begin
   	readln(n);
   	Writeln(Fib(n));
   	end;
 readln;
end.

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...