Program - Fibonacciho postupnosť :)

Program napísaný v jazyku vývojových diagramov.

Program napísaný v jazyku Pascal.

program FibonaccihopostupnostOk;

var
i: integer;
a:array[1..20]of integer;

begin
i:=2;
a[1]:=1;
a[2]:=1;
writeln(a[1]);
writeln(a[2]);
repeat
i:=i+1;
a[i]:=a[i-1]+a[i-2];
writeln(a[i]);
until i>19;
readln;
end.

Hodnotenie užitočnosti článku:

• ← Program - Faktoriál :)
• Program - Hádanie čísla :) →