比赛 |
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.