讨论 / pascal AC100看这里
雪虎 2017-10-15 16:31:12
点我顶贴 收藏 删除
const

m=300;

var i:byte;

a,b,s:integer;

begin

b:=0;s:=0;

for i:=1 to 12 do

begin

read(a);

if a>m+b then

begin

writeln(-i);

exit;

end;

if m+b-a>=100

then

begin

s:=s+100*((m+b-a) div 100);

b:=(m+b-a)mod 100;

end

else b:=m+b-a;

end;

writeln(1.2*s+b:0:0);

end.

#1 test@2017-10-18 10:49:37
回复 删除
不错呀!
查看更多回复
提交回复