水

var

i,m,k,l:longint;

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

begin

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

m:=0; k:=0; l:=0;

while (m=0) do begin

m:=m+1;

l:=l+300;

l:=l-a[m];

if l>=100 then begin

k:=k+l div 100*100;

l:=l-l div 100*100;

end;

end;

if l

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

#include

main()

{

int budget[13],money=0,mother=0,save,i;

for(i=1;i

var

a:array[1..13] of longint;

s,t,q,i:longint;

begin

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

t:=0; q:=0;

for i:=1 to 12 do

begin

t:=t+300;

if t=100 then begin

s:=s+(t-a[i]) div 100 *100;t:=t-(t-a[i]) div 100 *100-a[i];

end

else t:=t-a[i];

end;

if q>0 then write(-1*q)

else write(s*1.2+t:0:0);

end.

hahaha,好久没有AC了！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var i,m,k,l : longint;

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

begin

for i:=1 to 12 do

readln(a[i]);

m:=0;

k:=0;

l:=0;

while (m=0) do begin

m:=m+1;

l:=l+300;

l:=l-a[m];

if l>=100 then begin

k:=k+l div 100*100;

l:=l-l div 100*100;

end;

end;

if l

program money;

var a:array[1..12]of integer;

b,c,d,e,save:integer;

short:boolean;

begin for b:=1 to 12 do

read(a);

b:=0;

c:=0;

save:=0;

short:=false;

for b:=1 to 12 do

begin c:=c+300-a;

if c100 then begin d:=c div 100;

save:=save+d;

c:=c mod 100;

end;

end;

if short then write(e)

else begin d:=save*120+c;

write(d);

end;

end.

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

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

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

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

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

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

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

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

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

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

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

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

第一次交的时候没看到那个返还*120%

汗啊......

看来有4组是SHORT的

编译通过...

├ 测试数据 01：答案错误...

　├ 标准行输出

　├ 错误行输出

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

├ 测试数据 03：答案错误...

　├ 标准行输出

　├ 错误行输出

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

├ 测试数据 05：答案错误...

　├ 标准行输出

　├ 错误行输出

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

├ 测试数据 07：答案错误...

　├ 标准行输出

　编译通过...

错误行输出

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

├ 测试数据 09：答案错误...

　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案错误...

　├ 标准行输出

　├ 错误行输出

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

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

没想法了。。。

会有人来看这条的题解吗？

测试数据06多次超出预算

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program noip041;

var

total,i,p:integer;

k:real;

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

procedure check(i:integer);

var temp:integer;

begin

if a[i]

编译通过...├ 测试数据 01：答案正确... 0ms├ 测试数据 02：答案正确... 0ms├ 测试数据 03：答案正确... 0ms├ 测试数据 04：答案正确... 0ms├ 测试数据 05：答案正确... 0ms├ 测试数据 06：答案正确... 0ms├ 测试数据 07：答案正确... 0ms├ 测试数据 08：答案正确... 0ms├ 测试数据 09：答案正确... 0ms├ 测试数据 10：答案正确... 0ms-------------------------Accepted 有效得分：100 有效耗时：0ms简单题没感想

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

这几天刷水题终于到70了

program 1096;

var i,a,b,d:longint;

c:real;

begin

b:=0;

d:=0;

for i:=1 to 12 do

readln(a);

begin

b:=300+b-a;

if b

#include

int a[13];

int i,j=0,k=0,n;

int main(){

for (i=1;i

for i:=1 to 12 do

begin

readln(t);

left:=left+300-t;

if left < 0 then begin writeln('-',i); halt; end;

save:=save+ (left div 100)*100;

left:=left mod 100;

end;

writeln(save*1.2+left:0:0);

哈哈一次就Acc了

#include

main()

{

int money,have=300,saved=0;

for(int a=1;a

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

你模拟一下就行了。。。