进一个判断一个，数组没用。。

#include "iostream.h"

int left=0;

int month=0,stored=0;

int i;

int isnen=0,firstmonth=0;

int main()

{

for (i=0;i> month;

left=300+left-month;

if (left

水题一道，注意把原来剩的钱加上，这是纯模拟啊

var

i,j,k,n:integer;

begin

k:=0;

for i:=1 to 12 do

begin

read(n);

if k+300>=n then

begin

k:=k+300-n;

j:=(k div 100)*100+j;

k:=k mod 100;

end

else

begin

write('-',i);

exit;

end;

end;

write((j div 5)*6+k);

end.

可怜我头一次解题居然因为粗心两次弄错变量……

后来惊觉可以把输入和运算放在一个循环里面= =

唉，重复提交几遍，当做给自己提个醒儿~

注意*1.2后要截尾，或者:0:0

program jingjing;

var jing,mother,spend:longint;

month,t:integer;

money:real;

begin

jing:=0; mother:=0; month:=0;

for t:=1 to 12 do

begin

jing:=jing+300;

readln(spend);

if spend>jing then begin

jing:=0;

if month=0 then month:=t

end

else begin

jing:=jing-spend;

mother:=mother+(jing div 100)*100;

jing:=jing-(jing div 100)*100

end;

end;

money:=jing+mother*1.2;

if month=0 then write(money:0:0)

else write(-month);

end.

晕，居然连‘-’都忘了加

我可怜的AC率啊……

哇哈哈，庆祝AC30题！！

#include

using namespace std;

int main()

{

int a[12],i,sum=0,p=0;

for(i=0;i>a[i];

for(i=0;i

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program chunqian;

var s,i,jie:integer;

x,o:array[1..12] of integer;

chun:real;dui:boolean;

Begin

for i:=1 to 12 do readln(x[i]);

s:=300;

for i:=1 to 12 do

begin

jie:=s-x[i];

if (jie >=100) and (jie =200) and (jie =300 then begin jie:=jie-300;chun:=chun+300; end;

if jie

input

288 93 278 51 110 189 331 50 277 57 186 64

290 230 280 200 300 170 340 50 90 80 200 60

290 230 280 200 300 170 330 50 90 80 200 60

288 110 310 188 168 161 32 332 89 298 201 60

288 225 151 95 279 203 65 300 266 232 199 60

288 339 342 2 39 245 99 269 92 167 198 61

288 219 24 166 259 329 165 207 95 35 194 62

288 334 214 73 19 21 198 175 271 320 193 62

288 99 55 330 129 63 232 144 97 254 191 63

288 213 246 237 240 105 265 113 274 188 190 63

output

1946

-7

1580

-3

1477

-2

1857

-2

1975

1398

可用来骗题

hoho

我是第6000个刷此水题的人

#include

int main()

{

int a[13],i,flag;

int sum,save;

while(1==scanf("%d",&a[1]))

{

for(i=2;i

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

第二次才AC，第一次因为输出是实数，只通过四组，大家注意了啊！！！

（噢，我可怜的通过率，硬生生地从50%拉到了40%多）

我只想说……年底的时候，不只妈妈那有津津的钱，津津自己手上还有钱的，噢。

#include

int main()

{

int a[13],i,flag;

int sum,save;

while(1==scanf("%d",&a[1]))

{

for(i=2;i

var i,j,k,l,m,n:longint;

a:array[0..1000] of longint;

begin

for i:=1 to 12 do readln(a[i]);

a[0]:=0;

for i:=1 to 12 do begin

a[i]:=a+300-a[i];

if a[i]0 then begin

inc(l,(a[i] div 100)*100);

a[i]:=a[i] mod 100;

end;

end;

l:=(l div 5)*6;

writeln(l+a[12]);

end.

热烈庆祝第一次一次妙杀！（虽说题目有点水）

完全原稿！一字未改！

program jjdcxjh;

var

m,n,i,x:word;

flag:boolean;

a:array[1..12]of word;

begin

m:=0;

n:=0;

flag:=true;

for i:=1 to 12 do

readln(a[i]);

for i:=1 to 12 do

begin

m:=m+300;

if m-a[i]>=100 then begin

if m-a[i]

Unaccepted 有效得分：40 有效耗时：

我囧啊

var

hmoney,i,su,total:integer;

a:array[1..1000]of integer;

begin

hmoney:=0;

su:=0;

total:=0;

for i:=1 to 12 do

readln(a[i]);

for i:=1 to 12 do

begin

hmoney:=hmoney+300;

hmoney:=hmoney-a[i];

if hmoney=100 then

begin

su:=su+hmoney div 100* 100;

hmoney:=hmoney mod 100;

end;

end;

writeln(su*1.2+hmoney:0:0);

end.