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
66
Opdracht_1
НОД не по ЕВКЛИДУ но без массивов
2
Грицанова, стр. 26, Пример 1.7
Vremenska prognoza
SP2013E1b
Задача №3549. Замечательные числа - 5
[DE/GER] Vigenere Chiffre (Entschlüsselung)
test12