Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Bilangan fibonacci ke-1 sampai ke-n
Program fibonacci; var i,x,y,n:int64; begin readln(n); x:=1; y:=1; for i:= 1 to n do if (i<3) then write(x,' ') else begin x:=x+y; y:=x-y; write(x,' '); end; end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
AreaTriangulo.pas
test27
RENAN AZEREDO DA FONSECA 600618046
IPR2
bai1
Unicorn
test12
диагональ в алфавите
Задачи на div и mod
test27
Please log in to post a comment.