Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Pascal triangle
program BinomnikoefPaskalovtrougao; var n:integer; function faktorijel(n:integer):integer; var i,s:integer; begin s:=1; for i:=1 to n do s:=s*i; faktorijel:=s end; procedure binko(n,j:integer); var a:real; begin a:=faktorijel(n)/(faktorijel(n-j)*faktorijel(j)); write(a:0:2,' ') end; procedure ispisiPascalov(n:integer); var i,j:integer; begin writeln('Paskalov trougao je: '); for i:=1 to n do if(i=1) then begin binko(1,1); writeln() end else begin for j:=0 to i do binko(i,j); writeln() end end; begin writeln('Unesite stepen n: '); read(n); ispisiPascalov(n) end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Excercise3
matriza
Fibonacijev niz
10 Ariketa
sandogh 1
Определение типа треугольника по трём сторонам
rf cdx
Вычисление площади фигуры
НОД всеми способами
1
Please log in to post a comment.