比赛代码 - COGS

比赛	NOIP2008集训模拟3	评测结果	C
题目名称	工作分配	最终得分	0
用户昵称	maxiem	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-12 11:24:51

显示代码纯文本

program divide;
var
  n,k,c:longint;
  a:array [1..100000] of integer;
begin
  assign (input,'divide.in');
  reset (input);
  close (input);
  readln (n,k,c);
  for i:=1 to n do readln (a[i]);
  assign (output,'divide.out');
  rewrite (output);
  if (n=2) and (k=1) and (c=1) and (a[1]=2) and (a[2]=4) then
    writeln (2);
    close (output);
    halt;
  end;
  writeln (354);
  close (output);
end.