2004年分区联赛提高组之一 津津的…
2016-04-08 21:44
330 查看
Description 津津的零花钱一直都是自己管理。每个月的月初妈妈给津津300元钱,津津会预算这个月的花销,并且总能做到实际花销和预算的相同。 为了让津津学习如何储蓄,妈妈提出,津津可以随时把整百的钱存在她那里,到了年末她会加上20%还给津津。因此津津制定了一个储蓄计划:每个月的月初,在得到妈妈给的零花钱后,如果她预计到这个月的月末手中还会有多于100元或恰好100元,她就会把整百的钱存在妈妈那里,剩余的钱留在自己手中。 例如11月初津津手中还有83元,妈妈给了津津300元。津津预计11月的花销是180元,那么她就会在妈妈那里存200元,自己留下183元。到了11月月末,津津手中会剩下3元钱。 津津发现这个储蓄计划的主要风险是,存在妈妈那里的钱在年末之前不能取出。有可能在某个月的月初,津津手中的钱加上这个月妈妈给的钱,不够这个月的原定预算。如果出现这种情况,津津将不得不在这个月省吃俭用,压缩预算。 现在请你根据2004年1月到12月每个月津津的预算,判断会不会出现这种情况。如果不会,计算到2004年年末,妈妈将津津平常存的钱加上20%还给津津之后,津津手中会有多少钱。Input 输入包括12行数据,每行包含一个小于350的非负整数,分别表示1月到12月津津的预算。Output 输出包括一行,这一行只包含一个整数。如果储蓄计划实施过程中出现某个月钱不够用的情况,输出-X,X表示出现这种情况的第一个月;否则输出到2004年年末津津手中会有多少钱。Sample Input
290
230
280
200
300
170
340
50
90
80
200
60Sample Output
-7
解题思路:用数组储存他每个月的预算,然后从1到12循环,如果超预算,就输出当前循环变量时几,不然输出他在年末剩余的钱。
程序:
var
a:array[1..12] of longint;
s,x,i:longint;
begin
for i:=1 to 12 do
read(a[i]);
s:=0;
x:=0;
for i:=1 to 12 do
begin
s:=s+300;
if s-a[i]<0 then
begin
write(-i);
exit;;
end;
s:=s-a[i];
x:=s-s mod 100+x;
s:=s mod 100;
end;
write(s+x+x div 5);
end.
版权属于: Chris原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0hx.html转载时必须以链接形式注明原始出处及本声明。
相关文章推荐
- 2004年分区联赛普级组之一&nbsp;不…
- 2003年分区联赛普级组之四&nbsp;麦森数
- 2003年分区联赛普级组之一&nbsp;乒乓球
- 2002年分区联赛提高组之一&nbsp;均…
- 2002年分区联赛普级组之四&nbsp;过河卒
- 2002年分区联赛普组组之一&nbsp;级…
- 2001年分区联赛提高组之二&nbsp;数…
- 2001年分区联赛普级组之四&nbsp;装…
- 在CentOS 7上构建RAID5、LVM和SAMBA服务器(2)——构建RAID5
- 【干货】容器适配器实现两个栈模拟队列
- linux下ps命令说明
- 2001年分区联赛普级组之二&nbsp;最…
- 2001年分区联赛普级组之一&nbsp;数…
- 小球(树)
- 扩展二叉树(树)
- USACO&nbsp;2.4&nbsp;分数化小数
- USACO&nbsp;2.3&nbsp;和为零
- USACO&nbsp;2.2&nbsp;派对灯
- USACO&nbsp;2.1&nbsp;健康的好斯坦奶牛
- USACO&nbsp;2.1&nbsp;顺序的分数