fork(2) download

copy

uses math;
const
  fi='';
  fo='';
  maxn=trunc(1e5);
  maxk=50;
  base=790972;
var
  f : array[0..maxn,0..maxk] of int64;
  i,j,n,k,m : longint;
  kq : int64;
  a,b : array[1..maxn] of longint;
procedure enter;
begin
  assign(input,fi);reset(input);
  readln(n,k);
  for i:=1 to n do read(a[i],b[i]);
  close(input);
end;
procedure swap(var x,y: longint);
var tg : longint;
begin
  tg:=x;x:=y;y:=tg;
end;
procedure qs(l,r : longint);
  var i,j,x : longint;
  begin
    i:=l;j:=r;
    x:=b[(l+r) div 2];
    repeat
      while x>b[i] do inc(i);
      while x<b[j] do dec(j);
      if i<=j then
        begin
          swap(b[i],b[j]);
          swap(a[i],a[j]);
          inc(i);dec(j);
        end;
    until i>j;
    if i<r then qs(i,r);
    if j>l then qs(l,j);
  end;
function muk(x : longint) : int64;
  var i : longint;
  begin
    muk := 1;
    for i:=1 to k do muk:=muk*x;
  end;
function cnk(n,k : longint) : int64;
  begin
    cnk := 1;
    for i:=n-k+1 to n do cnk := cnk*i;
    for i:=1 to k do cnk := cnk div i;
  end;
function tinh : int64;
begin
  fillchar(f,sizeof(f),0);
  for i:=0 to m do f[i,0] := 1;
  for i:=1 to m do
    for j:=1 to min(k,i) do
      f[i,j] := (f[i-1,j] + f[i-1,j-1]*a[i]) mod base;
  exit(f[m,k]);
end;
procedure process;
var i,j,dem : longint;
    dau,cuoi : longint;
begin
  qs(1,n);
  m := n;
  kq := tinh;
  dau := 1;
  while (dau<=n) do
  begin
    cuoi := dau+1;
    m := 1; a[1] := a[dau];
    while (cuoi<=n) and (b[cuoi]=b[dau]) do
      begin
        m := m+1;
        a[m] := a[cuoi];
        inc(cuoi);
      end;
    if cuoi-dau>=k then
      kq := (kq - tinh + base + base) mod base;
    dau := cuoi;
  end;
end;
procedure print;
begin
  assign(output,fo);rewrite(output);
  writeln(kq);
  close(output);
end;
begin
  enter;
  process;
  print;
end.

prog.cpp:3:6: error: empty character constant
   fi='';
      ^~
prog.cpp:4:6: error: empty character constant
   fo='';
      ^~
prog.cpp:9:13: error: too many decimal points in number
   f : array[0..maxn,0..maxk] of int64;
             ^~~~~~~
prog.cpp:9:21: error: too many decimal points in number
   f : array[0..maxn,0..maxk] of int64;
                     ^~~~~~~
prog.cpp:12:15: error: too many decimal points in number
   a,b : array[1..maxn] of longint;
               ^~~~~~~
prog.cpp:1:1: error: ‘uses’ does not name a type
 uses math;
 ^~~~
prog.cpp:3:3: error: ‘fi’ does not name a type
   fi='';
   ^~
prog.cpp:4:3: error: ‘fo’ does not name a type
   fo='';
   ^~
prog.cpp:5:3: error: ‘maxn’ does not name a type
   maxn=trunc(1e5);
   ^~~~
prog.cpp:6:3: error: ‘maxk’ does not name a type
   maxk=50;
   ^~~~
prog.cpp:7:3: error: ‘base’ does not name a type
   base=790972;
   ^~~~
prog.cpp:8:1: error: ‘var’ does not name a type
 var
 ^~~
prog.cpp:10:3: error: ‘i’ does not name a type
   i,j,n,k,m : longint;
   ^
prog.cpp:11:6: error: found ‘:’ in nested-name-specifier, expected ‘::’
   kq : int64;
      ^
prog.cpp:11:3: error: ‘kq’ does not name a type
   kq : int64;
   ^~
prog.cpp:12:3: error: ‘a’ does not name a type
   a,b : array[1..maxn] of longint;
   ^
prog.cpp:13:1: error: ‘procedure’ does not name a type
 procedure enter;
 ^~~~~~~~~
prog.cpp:14:1: error: ‘begin’ does not name a type
 begin
 ^~~~~
prog.cpp:15:25: error: expected constructor, destructor, or type conversion before ‘(’ token
   assign(input,fi);reset(input);
                         ^
prog.cpp:16:9: error: expected constructor, destructor, or type conversion before ‘(’ token
   readln(n,k);
         ^
prog.cpp:17:3: error: expected unqualified-id before ‘for’
   for i:=1 to n do read(a[i],b[i]);
   ^~~
prog.cpp:18:8: error: expected constructor, destructor, or type conversion before ‘(’ token
   close(input);
        ^
prog.cpp:19:1: error: ‘end’ does not name a type
 end;
 ^~~
prog.cpp:20:1: error: ‘procedure’ does not name a type
 procedure swap(var x,y: longint);
 ^~~~~~~~~
prog.cpp:21:1: error: ‘var’ does not name a type
 var tg : longint;
 ^~~
prog.cpp:22:1: error: ‘begin’ does not name a type
 begin
 ^~~~~
prog.cpp:23:9: error: ‘x’ does not name a type
   tg:=x;x:=y;y:=tg;
         ^
prog.cpp:23:14: error: ‘y’ does not name a type
   tg:=x;x:=y;y:=tg;
              ^
prog.cpp:24:1: error: ‘end’ does not name a type
 end;
 ^~~
prog.cpp:25:1: error: ‘procedure’ does not name a type
 procedure qs(l,r : longint);
 ^~~~~~~~~
prog.cpp:26:3: error: ‘var’ does not name a type
   var i,j,x : longint;
   ^~~
prog.cpp:27:3: error: ‘begin’ does not name a type
   begin
   ^~~~~
prog.cpp:28:10: error: ‘j’ does not name a type
     i:=l;j:=r;
          ^
prog.cpp:29:5: error: ‘x’ does not name a type
     x:=b[(l+r) div 2];
     ^
prog.cpp:30:5: error: ‘repeat’ does not name a type
     repeat
     ^~~~~~
prog.cpp:32:7: error: expected unqualified-id before ‘while’
       while x<b[j] do dec(j);
       ^~~~~
prog.cpp:33:7: error: expected unqualified-id before ‘if’
       if i<=j then
       ^~
prog.cpp:36:15: error: expected constructor, destructor, or type conversion before ‘(’ token
           swap(a[i],a[j]);
               ^
prog.cpp:37:14: error: expected constructor, destructor, or type conversion before ‘(’ token
           inc(i);dec(j);
              ^
prog.cpp:37:21: error: expected constructor, destructor, or type conversion before ‘(’ token
           inc(i);dec(j);
                     ^
prog.cpp:38:9: error: ‘end’ does not name a type
         end;
         ^~~
prog.cpp:39:5: error: ‘until’ does not name a type
     until i>j;
     ^~~~~
prog.cpp:40:5: error: expected unqualified-id before ‘if’
     if i<r then qs(i,r);
     ^~
prog.cpp:41:5: error: expected unqualified-id before ‘if’
     if j>l then qs(l,j);
     ^~
prog.cpp:42:3: error: ‘end’ does not name a type
   end;
   ^~~
prog.cpp:43:1: error: ‘function’ does not name a type
 function muk(x : longint) : int64;
 ^~~~~~~~
prog.cpp:44:3: error: ‘var’ does not name a type
   var i : longint;
   ^~~
prog.cpp:45:3: error: ‘begin’ does not name a type
   begin
   ^~~~~
prog.cpp:47:5: error: expected unqualified-id before ‘for’
     for i:=1 to k do muk:=muk*x;
     ^~~
prog.cpp:48:3: error: ‘end’ does not name a type
   end;
   ^~~
prog.cpp:49:1: error: ‘function’ does not name a type
 function cnk(n,k : longint) : int64;
 ^~~~~~~~
prog.cpp:50:3: error: ‘begin’ does not name a type
   begin
   ^~~~~
prog.cpp:52:5: error: expected unqualified-id before ‘for’
     for i:=n-k+1 to n do cnk := cnk*i;
     ^~~
prog.cpp:53:5: error: expected unqualified-id before ‘for’
     for i:=1 to k do cnk := cnk div i;
     ^~~
prog.cpp:54:3: error: ‘end’ does not name a type
   end;
   ^~~
prog.cpp:55:1: error: ‘function’ does not name a type
 function tinh : int64;
 ^~~~~~~~
prog.cpp:56:1: error: ‘begin’ does not name a type
 begin
 ^~~~~
prog.cpp:58:3: error: expected unqualified-id before ‘for’
   for i:=0 to m do f[i,0] := 1;
   ^~~
prog.cpp:59:3: error: expected unqualified-id before ‘for’
   for i:=1 to m do
   ^~~
prog.cpp:62:7: error: expected constructor, destructor, or type conversion before ‘(’ token
   exit(f[m,k]);
       ^
prog.cpp:63:1: error: ‘end’ does not name a type
 end;
 ^~~
prog.cpp:64:1: error: ‘procedure’ does not name a type
 procedure process;
 ^~~~~~~~~
prog.cpp:65:1: error: ‘var’ does not name a type
 var i,j,dem : longint;
 ^~~
prog.cpp:66:5: error: ‘dau’ does not name a type
     dau,cuoi : longint;
     ^~~
prog.cpp:67:1: error: ‘begin’ does not name a type
 begin
 ^~~~~
prog.cpp:69:3: error: ‘m’ does not name a type
   m := n;
   ^
prog.cpp:70:3: error: ‘kq’ does not name a type
   kq := tinh;
   ^~
prog.cpp:71:3: error: ‘dau’ does not name a type
   dau := 1;
   ^~~
prog.cpp:72:3: error: expected unqualified-id before ‘while’
   while (dau<=n) do
   ^~~~~
prog.cpp:75:5: error: ‘m’ does not name a type
     m := 1; a[1] := a[dau];
     ^
prog.cpp:75:13: error: ‘a’ does not name a type
     m := 1; a[1] := a[dau];
             ^
prog.cpp:76:5: error: expected unqualified-id before ‘while’
     while (cuoi<=n) and (b[cuoi]=b[dau]) do
     ^~~~~
prog.cpp:79:9: error: ‘a’ does not name a type
         a[m] := a[cuoi];
         ^
prog.cpp:80:12: error: expected constructor, destructor, or type conversion before ‘(’ token
         inc(cuoi);
            ^
prog.cpp:81:7: error: ‘end’ does not name a type
       end;
       ^~~
prog.cpp:82:5: error: expected unqualified-id before ‘if’
     if cuoi-dau>=k then
     ^~
prog.cpp:84:5: error: ‘dau’ does not name a type
     dau := cuoi;
     ^~~
prog.cpp:85:3: error: ‘end’ does not name a type
   end;
   ^~~
prog.cpp:86:1: error: ‘end’ does not name a type
 end;
 ^~~
prog.cpp:87:1: error: ‘procedure’ does not name a type
 procedure print;
 ^~~~~~~~~
prog.cpp:88:1: error: ‘begin’ does not name a type
 begin
 ^~~~~
prog.cpp:89:28: error: expected constructor, destructor, or type conversion before ‘(’ token
   assign(output,fo);rewrite(output);
                            ^
prog.cpp:90:10: error: expected constructor, destructor, or type conversion before ‘(’ token
   writeln(kq);
          ^
prog.cpp:91:8: error: expected constructor, destructor, or type conversion before ‘(’ token
   close(output);
        ^
prog.cpp:92:1: error: ‘end’ does not name a type
 end;
 ^~~
prog.cpp:93:1: error: ‘begin’ does not name a type
 begin
 ^~~~~
prog.cpp:95:3: error: ‘process’ does not name a type
   process;
   ^~~~~~~
prog.cpp:96:3: error: ‘print’ does not name a type
   print;
   ^~~~~
prog.cpp:97:1: error: ‘end’ does not name a type
 end.
 ^~~

Standard output is empty