比赛 20111109 评测结果 AWAAAAAWAA
题目名称 摩托车游戏 最终得分 80
用户昵称 Launcher 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2011-11-09 11:23:08
显示代码纯文本
program carz;
var
 a:array[1..10000]of real;
 b:array[1..10000]of integer;
 i,j,k,m,n,max,s,t:longint;
begin
 assign(input,'carz.in');reset(input);assign(output,'carz.out');rewrite(output);
 read(s,t);
 for i:=1 to s do
  begin
    if i<=10 then b[i]:=100;
    if (i>10)and(i<=20) then b[i]:=90;
    if (i>20)and(i<=30) then b[i]:=80;
    if (i>30)and(i<=40) then b[i]:=75;
    if i>40 then b[i]:=70;
  end;
 a[s]:=s/b[s];
 writeln(a[s]:0:2);
 close(input);close(output);
end.