Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Fibonacijev niz
program Fibonacijevi; const max=50; type niz=array[0..max] of integer; var a,f:niz; i,n:integer; begin writeln('Koliko elemenata ima Vas niz: '); read(n); writeln('Unesite elemente niza: '); for i:=0 to n-1 do read(a[i]); writeln('Trazeni brojevi niza su: '); f[0]:=0; f[1]:=1; if (a[0]=f[0]) then write(a[0],' '); if (a[1]=f[1]) then write(a[1],' '); for i:=2 to n-1 do begin f[i]:=f[i-1]+f[i-2]; if(a[i]=f[i]) then write(a[i],' ') end end.
run
|
edit
|
history
|
help
0
practica 3 ejercicio 5
sandogh 1
2
solar system 7
Урок 4 задача 8
Количество пар кр и некр 11 улучшенный алгоритм
practica 7 ejercicio B4
Pokazivac-dinamicka alokacija memorije
BubbleSort (slimst)
Бассейн 21 без меток