Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
BITcustom
вариант 6, номер 1
Thao Vi
Pokazivac-dinamicka alokacija memorije
test22
For8
task 3
Задачи на div-mod
Naloga 8: 10.9.2008
Linija
Please log in to post a comment.