比赛 20101119 评测结果 ATTTTTTTTT
题目名称 奥运会 最终得分 10
用户昵称 belong.zmx 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-19 09:14:52
显示代码纯文本
program olympic(input,output);
var
 i,j,k:longint;
 n:longint;
 a:array[1..15,1..3]of longint;
 l,now,cow:longint;
 flag:boolean;

begin
 assign(input,'olympic.in');
 reset(input);
 readln(n);
 for i:=1 to n do readln(a[i,1],a[i,2],a[i,3]);
 close(input);

 assign(output,'olympic.out');
 rewrite(output);

 for i:=1 to 1000 do
  for j:=1 to i do
   for k:=1 to j do
   begin
    now:=a[1,1]*i+a[1,2]*j+a[1,3]*k;
    flag:=true;
    for l:=2 to n do
    begin
     cow:=a[l,1]*i+a[l,2]*j+a[l,3]*k;
     if cow>now then
     begin
      flag:=false;
      break;
     end;
    end;
    if flag=true then
    begin
     writeln(i,' ',j,' ',k);
     close(output);
     halt;
    end;
   end;
end.