津津的储蓄计划(save.pas/c/cpp)

津津的储蓄计划

(save.pas/c/cpp)

 

【问题描述】

 

津津的零花钱一直都是自己管理。每个月的月初妈妈给津津300元钱，津津会预算这个月的花销，并且总能做到实际花销和预算的相同。

为了让津津学习如何储蓄，妈妈提出，津津可以随时把整百的钱存在她那里，到了年末她会加上20%还给津津。因此津津制定了一个储蓄计划：每个月的月初，在得到妈妈给的零花钱后，如果她预计到这个月的月末手中还会有多于100元或恰好100元，她就会把整百的钱存在妈妈那里，剩余的钱留在自己手中。

例如11月初津津手中还有83元，妈妈给了津津300元。津津预计11月的花销是180元，那么她就会在妈妈那里存200元，自己留下183元。到了11月月末，津津手中会剩下3元钱。

津津发现这个储蓄计划的主要风险是，存在妈妈那里的钱在年末之前不能取出。有可能在某个月的月初，津津手中的钱加上这个月妈妈给的钱，不够这个月的原定预算。如果出现这种情况，津津将不得不在这个月省吃俭用，压缩预算。

现在请你根据2004年1月到12月每个月津津的预算，判断会不会出现这种情况。如果不会，计算到2004年年末，妈妈将津津平常存的钱加上20%还给津津之后，津津手中会有多少钱。

 

【输入文件】

 

输入文件save.in包括12行数据，每行包含一个小于350的非负整数，分别表示1月到12月津津的预算。

 

【输出文件】

 

输出文件save.out包括一行，这一行只包含一个整数。如果储蓄计划实施过程中出现某个月钱不够用的情况，输出-X，X表示出现这种情况的第一个月；否则输出到2004年年末津津手中会有多少钱。

 

【样例输入1】

 

290

230

280

200

300

170

340

50

90

80

200

60

 

【样例输出1】

 

-7

 

【样例输入2】

 

290

230

280

200

300

170

330

50

90

80

200

60

 

【样例输出2】

 

1580

================

模拟题，注意细节

一个地方，当一个整数乘以一个实数时，结果就成了一个实数，

================

 

procedure init;
begin
  assign(input,'p1046.in');
  assign(output,'p1046.out');
  reset(input);
  rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure main;
var
  i:longint;
  a,rest,tot:longint;
begin
  rest:=0;
  tot:=0;
  for i:=1 to 12 do
    begin
      readln(a);
      rest:=rest+300;
      if rest<a then
        begin
          writeln(-i);
          terminate;
        end;
      tot:=tot+((rest-a) div 100)*100;
      rest:=(rest-a) mod 100;
    end;
  writeln((tot*1.2+rest):0:0);
end;

begin
  init;
  main;
  terminate;
end.