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
ор
Fibonasi
la moyenne de théo
procedure escribir caracter n veces
Giai pt bac 2
zadanye 2
(p,q,r)
CON YÊU MẸ
08 ariketa
3