Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Fibonasi
program fibonasi; uses crt; var a,n,s1,s2,s:Word; begin clrscr; WriteLn('ban muon tim so fibonasi thu may: ' ); readln(n); if (n = 1) or (n = 2) then write('so ban can tim la: 1') else begin s1:=1; s2:=1; for a:=3 to n do begin s:=s1 + s2; s2:=s1; s1:=s; end; write('so fibonasi thu ',n,' la: ',s); end; readln; end.
run
|
edit
|
history
|
help
0
practica 3 ejercicio 9
bilete
Huong11a2@
Macintosh HD/Users/aleksej/Downloads/132.docx
Geometric and aritmetic average of array
Пузырьковая сортировка массива
урок 8 задача 5 символьный тип данных
translator number system
shift array to left_new
practica 11 ejercicio 5