记录编号 127168 评测结果 AAAAAAAAAA
题目名称 [NOIP 2004]津津的储蓄计划 最终得分 100
用户昵称 Gravatar思邈然 是否通过 通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2014-10-14 21:50:59 内存使用 0.17 MiB
显示代码纯文本
program cogs108;
var
qu,chun,a,i:integer;
begin
assign(input,'save.in');reset(input);
assign(output,'save.out');rewrite(output);
for i:=1 to 12 do begin
read(a);
if qu+300<a then begin
{close(input);}write('-',i);
close(output);exit;end;
chun:=chun+100*((qu+300-a)div 100);
qu:=(qu+300-a) mod 100;
end;
write(chun*1.2+qu:0:0);
close(input);close(output);
end.