Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Fibonacci
program fibo; uses crt; var ant, suc, n , prox : integer; begin ant := 1; suc := 1; prox := ant + suc; write (ant, '-' , suc, '-'); for n := 3 to 15 do begin write (prox, '-'); ant := suc; suc := prox; prox := ant+ suc; end; end.
run
|
edit
|
history
|
help
0
сумма чётных и нечётных чисел
basketball_player_training
калькулятор
pdp31-boolean
nomer6
2. Proba
Huong11a2@
vd
Бассейн-5
вывод номера символа на экран