• API
• FAQ
• Tools
• Archive
A Pastebin account makes a great Christmas gift
SHARE
TWEET

# Untitled

a guest Mar 8th, 2018 49 Never
ENDING IN00days00hours00mins00secs

1. /*
2.     Ejercicio 4.
3.  */
4.
5. program ej4;
6.
7. /*
8.     No creo que haga falta adornarlo para que a la salida diga
9.     "x" menor que "y" menor que "z", y espacios entre los numeros
10.     tampoco lo veo necesario. m* m-1 * m-2 * m-n+1 7 y 5
11. */
12.
13. procedure comb(x:int,y:int)
14. {
15.     writeln(x/y);
16. }
17.
18. function ordenar2(ref a: int,ref b: int) :int
19. {
20.     if(a > b){
21.         return a;
22.
23.     }else{
24.         return b;
25.
26.     }
27.
28. }
29.
30. procedure main()
31.     a:int;
32.     b:int;
33.     e:int;
34.     ex:int;
35.     i:int;
36.     d:int;
37.     aux:int;
38.     m:int;
39.     n:int;
40.     x:int;
41.     y:int;
42.
43. {
46.     e = 0;
47.     while (a > 0){
48.         writeln("Comb1");
50.         writeln("Comb2");
52.         d = m;
53.         for (i = 0, i < (n-1)){
54.             m = m*(n - (i-1));
55.
56.         }
57.         if (n > 1){             /*NO PUEDE SER 0!*/
58.         b = n;
59.             for (i = 1, i < b){
60.             n = n*i;
61.             }
62.
63.         }
64.     writeeol();
65.     writeln(m/n);
66.     x =(m/n);
67.         if (e > 1){
68.             writeeol();
69.             writeln(ordenar2(x,aux));
70.
71.         }
72.     e = e +2;
73.     a = a - 1;
74.     aux = x;
75.     }
76.
77.
78. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.

Top