比赛 20101119 评测结果 ATTTTTTTTT
题目名称 奥运会 最终得分 10
用户昵称 belong.zmx 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-19 09:14:52
显示代码纯文本
  1. program olympic(input,output);
  2. var
  3. i,j,k:longint;
  4. n:longint;
  5. a:array[1..15,1..3]of longint;
  6. l,now,cow:longint;
  7. flag:boolean;
  8.  
  9. begin
  10. assign(input,'olympic.in');
  11. reset(input);
  12. readln(n);
  13. for i:=1 to n do readln(a[i,1],a[i,2],a[i,3]);
  14. close(input);
  15.  
  16. assign(output,'olympic.out');
  17. rewrite(output);
  18.  
  19. for i:=1 to 1000 do
  20. for j:=1 to i do
  21. for k:=1 to j do
  22. begin
  23. now:=a[1,1]*i+a[1,2]*j+a[1,3]*k;
  24. flag:=true;
  25. for l:=2 to n do
  26. begin
  27. cow:=a[l,1]*i+a[l,2]*j+a[l,3]*k;
  28. if cow>now then
  29. begin
  30. flag:=false;
  31. break;
  32. end;
  33. end;
  34. if flag=true then
  35. begin
  36. writeln(i,' ',j,' ',k);
  37. close(output);
  38. halt;
  39. end;
  40. end;
  41. end.