记录编号 84285 评测结果 AAAAAAAAAA
题目名称 [NOIP 2004]津津的储蓄计划 最终得分 100
用户昵称 GravatarNBWang 是否通过 通过
代码语言 Pascal 运行时间 0.006 s
提交时间 2013-12-11 18:24:39 内存使用 0.17 MiB
显示代码纯文本
program cc(input,output);
var
a:array[1..12] of integer;
s,m,i:integer;
begin
assign(input,'save.in');
assign(output,'save.out');
reset(input);
rewrite(output);
for i:=1 to 12 do
read(a[i]);
for i:=1 to 12 do
begin
s:=s+300;
s:=s-a[i];
if s<0 then
begin
write('-',i);
 close(output);
 exit;
 end
 else
 begin
 m:=m+(s div 100)*100;
 s:=s-(s div 100)*100;
 end;
 end;
 writeln(m*1.2+s:0:0);
 close(output);
 end.