比赛 | NOIP2008集训模拟2 | 评测结果 | WWWWWWWWWW |
---|---|---|---|
题目名称 | 阿鲁高的远航 | 最终得分 | 0 |
用户昵称 | maxiem | 运行时间 | 0.000 s |
代码语言 | Pascal | 内存使用 | 0.00 MiB |
提交时间 | 2008-11-11 11:20:55 | ||
program sail; var i,t,v,a,w:integer; day:array [1..1000] of record need,mp:integer; end; r:array [1..10000] of integer; begin assign (input,'sail.in'); reset (input); readln (t,v,a,w); for i:=1 to t do readln (day[i].need,day[i].mp); close (input); assign (output,'sail.out'); rewrite (output); writeln (175); writeln (8); writeln (0); close (output); end.