Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 3 ejercicio B2
//fpc 3.0.4 program HelloWorld; function factorial(n:integer):integer; begin if n > 1 then begin factorial:= n* factorial(n - 1); end else factorial:=1; end; function funcion(m,n:integer):integer; var numerador, denominador: integer; begin numerador:= factorial(m); denominador:= factorial(m - n)*factorial(n); funcion:= numerador div denominador; end; var m,n:integer; begin readln(m,n); writeln('(',m,'!) / ((',m,'*',n,')!*',n,'!) = ', funcion(m,n)); end.
run
|
edit
|
history
|
help
0
zad27-optimal
Bang cuu chuong
pares entre a y b
ariketa 01
пи методом монте карло на единичной окружности
record as a procedure argument
числа с несовпадающими цифрами
janja - popravek
9
1