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