fork(2) download
copy 
  1. program sochets_m;
  2. var
  3.    i, n, m, l: Int64;
  4.    k1,k2: LongInt;
  5.    j : LongInt;
  6.    a: array[0 .. 100] of integer;
  7.    s, t: string;
  8.    d: set of byte;
  9.  
  10. begin
  11.    write('Enter N and M: ');
  12.    read(n, m);
  13.    if n<10 then l:=2 else if n<100 then l:=3 else l:=4;
  14.       {form. per. soch.}
  15.    for j:=0 to m do a[j]:=j;
  16.    k1:=0;
  17.    k2:=0;
  18.    repeat
  19.          s:='';
  20.          d:=[];
  21.          for j:=1 to m do begin
  22.             d:=d+[a[j]];
  23.             str(a[j]:l,t);
  24.             s:=s+t
  25.          end;
  26.          if
  27.             (1 in d) and (2 in d) and (3 in d) and (4 in d) or {1}
  28.             (2 in d) and (3 in d) and (4 in d) and (5 in d) or {2}
  29.             (3 in d) and (4 in d) and (5 in d) and (6 in d) or {3}
  30.             (4 in d) and (5 in d) and (6 in d) and (7 in d) or {4}
  31.             (5 in d) and (6 in d) and (7 in d) and (8 in d) or {5}
  32.             (6 in d) and (7 in d) and (8 in d) and (9 in d) or {6}
  33.             (7 in d) and (8 in d) and (9 in d) and (10 in d) or {7}
  34.             (8 in d) and (9 in d) and (10 in d) and (11 in d) or {8}
  35.             (9 in d) and (10 in d) and (11 in d) and (12 in d) or {9}
  36.             (10 in d) and (11 in d) and (12 in d) and (13 in d) or {10}
  37.             (11 in d) and (12 in d) and (13 in d) and (14 in d) or {11}
  38.             (12 in d) and (13 in d) and (14 in d) and (15 in d) or {12}
  39.             (13 in d) and (14 in d) and (15 in d) and (16 in d) or {13}
  40.             (14 in d) and (15 in d) and (16 in d) and (17 in d) or {14}
  41.             (15 in d) and (16 in d) and (17 in d) and (18 in d) or {15}
  42.             (16 in d) and (17 in d) and (18 in d) and (19 in d) or {16}
  43.             (17 in d) and (18 in d) and (19 in d) and (20 in d) or {17}
  44.             (18 in d) and (19 in d) and (20 in d) and (21 in d) or {18}
  45.             (19 in d) and (20 in d) and (21 in d) and (22 in d) or {19}
  46.             (20 in d) and (21 in d) and (22 in d) and (23 in d) or {20}
  47.             (21 in d) and (22 in d) and (23 in d) and (24 in d) or {21}
  48.             (22 in d) and (23 in d) and (24 in d) and (25 in d) or {22}
  49.             (23 in d) and (24 in d) and (25 in d) and (26 in d) or {23}
  50.             (24 in d) and (25 in d) and (26 in d) and (27 in d) or {24}
  51.             (25 in d) and (26 in d) and (27 in d) and (28 in d) or {25}
  52.             (26 in d) and (27 in d) and (28 in d) and (29 in d) or {26}
  53.             (27 in d) and (28 in d) and (29 in d) and (30 in d) or {27}
  54.             (28 in d) and (29 in d) and (30 in d) and (31 in d) or {28}
  55.             (29 in d) and (30 in d) and (31 in d) and (32 in d) or {29}
  56.             (30 in d) and (31 in d) and (32 in d) and (33 in d) or {30}
  57.             (31 in d) and (32 in d) and (33 in d) and (34 in d) or {31}
  58.             (32 in d) and (33 in d) and (34 in d) and (35 in d) or {32}
  59.             (33 in d) and (34 in d) and (35 in d) and (36 in d) or {33}
  60.             (34 in d) and (35 in d) and (36 in d) and (37 in d) or {34}
  61.             (35 in d) and (36 in d) and (37 in d) and (38 in d) or {35}
  62.             (36 in d) and (37 in d) and (38 in d) and (39 in d) or {36}
  63.             (37 in d) and (38 in d) and (39 in d) and (40 in d) or {37}
  64.             (38 in d) and (39 in d) and (40 in d) and (41 in d) or {38}
  65.             (39 in d) and (40 in d) and (41 in d) and (42 in d) or {39}
  66.             (40 in d) and (41 in d) and (42 in d) and (43 in d) or {40}
  67.             (41 in d) and (42 in d) and (43 in d) and (44 in d) or {41}
  68.             (42 in d) and (43 in d) and (44 in d) and (45 in d) or {42}
  69.             (43 in d) and (44 in d) and (45 in d) and (46 in d) or {43}
  70.             (44 in d) and (45 in d) and (46 in d) and (47 in d) or {44}
  71.             (45 in d) and (46 in d) and (47 in d) and (48 in d) or {45}
  72.             (46 in d) and (47 in d) and (48 in d) and (49 in d) or {46}
  73.             (47 in d) and (48 in d) and (49 in d) and (50 in d) or {47}
  74.             (48 in d) and (49 in d) and (50 in d) and (51 in d) or {48}
  75.             (49 in d) and (50 in d) and (51 in d) and (52 in d) or {49}
  76.             (50 in d) and (51 in d) and (52 in d) and (1 in d) or {50}
  77.             (51 in d) and (52 in d) and (1 in d) and (2 in d) or {51}
  78.             (52 in d) and (1 in d) and (2 in d) and (3 in d) {52}
  79.          then begin
  80.             Inc(k2);
  81.             Writeln(k2:10,'     ',s)
  82.          end;
  83.          i:=m;
  84.          while a[i]=n-m+i do dec(i);
  85.          inc(a[i]);
  86.          for j:=i+1 to m do a[j]:=a[j-1]+1;
  87.          Inc(k1);
  88.     until i=0;
  89.     Writeln('Total combinations: ',k1);
  90.     Writeln('X combinations: ',k2);
  91.     end.
Runtime error #stdin #stdout 0s 280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Enter N and M: Runtime error 106 at $080480F5
  $080480F5
  $08064413
https://ideone.com/IR4P4x
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!