var

m:array [1..11] of real;

a,b:array [1..12] of real;

k:array [1..11] of real;

x,i,q:integer;

begin

for i:=1 to 12 do

readln(a[i]);

m[1]:=300;

q:=0;

for i:=1 to 12 do

begin

b[i]:=m[i]-a[i];

if b[i]

Program P1096(input,output);

Var

i,w,t:longint;

p:extended;

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

Begin

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

w:=0;

for i:=1 to 12 do

begin

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

if w

我是沙茶

居然模拟都一次ac不了！

最后加上12月自己手里的钱啊

var i,s,m,n,h:integer;

a:array[1..12]of 0..350;

begin

for i:=1 to 12 do

readln(a[i]);

h:=0;m:=0;

for i:=1 to 12 do

begin

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

n:=s div 100*100;

m:=m+n;

h:=s-n;

if h

水题 我的非数组读入方法

program P1096;

var

i,k,s,m:integer;

bl:boolean;

begin

k:=0;s:=0;

bl:=true;

for i:=1 to 12 do

begin

readln(m);

k:=k+300-m;

if k99 then begin s:=s+k div 100;k:=k mod 100;end;

end;

if bl then write(s*120+k);

end.

秒杀

program chuqian;

var

mon:Array[1..12]of Longint;

x,zong,shen,chun,i:Longint;

f:Boolean;

begin

for i:= 1 to 12 do

readln(mon[i]);

shen:=0;

for i:= 1 to 12 do

begin

zong:=300+shen;

shen:=zong-mon[i];

if shen < 0 then begin writeln(-i);f:=true;break;end;

x:=shen mod 100;

chun:=shen-x+chun;

shen:=shen mod 100;

end;

if not(f) then writeln(shen+chun*1.2:0:0);

end.

#include

using namespace std;

int main()

{

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

for(i=1;i>budget[i];

for(i=1;i

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

详细讲解

可读性强

解题报告

http://wwzhwdwd.blog.163.com/blog/static/1281514502009818484164/edit/

水题果然是水题！10min内就AC了！^_^

可惜点点：不是一次AC。

水题就是容易粗心：

在妈妈那里连本带利拿回money后，忘记加上自己手里剩余的部分啦。

唉，RP呀……

有时候RP低到这种题一遍还过不了。。。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

const filename='p1096';

var

a,i,j,k,ans,x:longint;

begin

assign(input,filename+'.in');reset(input);

assign(output,filename+'.out');rewrite(output);

x:=0; ans:=0;

for i:=1 to 12 do

begin

readln(a);

x:=x+300-a;

if x

果然是水题

...

#include

using namespace std;

//p1096

int main()

{

int m[12],t,save = 0;

m[0]=0;

for(int i = 0; i > t;

m[i]+=300;

m[i]-=t;

if(m[i]

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

暈菜....

寫bank*1.2 ==> 40

寫bank+bank*0.2==> 100

鬱悶

41/101.....

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

Vijos Sunny 快

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

//津津的储蓄计划

#include

using namespace std;

int main(){

int s,m,x;//s存的钱 m手上的钱 x花的钱

//进一个判断一个

s=m=0;

for (int i=1;i>x;

m=m+300-x;

s=s+m/100*100;

m%=100;

if (m

var nian,i,j,yue,m,yu,sum,shen:longint;

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

begin assign(input,'qq');reset(INPUT);

for i:=1 to 12 do

read(a[i]);

for i:=1 to 12 do

begin

inc(yue);

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

if yu100 then begin

sum:=sum+100*(yu div 100);

yu:=yu mod 100;

sum:=round(sum)

end;

if yue=12 then write(sum+round(sum*1/5)+yu)

end;

end;var nian,i,j,yue,m,yu,sum,shen:longint;

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

begin assign(input,'qq');reset(INPUT);

for i:=1 to 12 do

read(a[i]);

for i:=1 to 12 do

begin

inc(yue);

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

if yu100 then begin

sum:=sum+100*(yu div 100);

yu:=yu mod 100;

sum:=round(sum)

end;

if yue=12 then write(sum+round(sum*1/5)+yu)

end;

end;

end.

end.

详细题解

http://chengchen2008.blog.163.com/blog/static/28346475200972203359647/

var i,now,pre,save:longint;

begin

now:=0;

save:=0;

for i:=1 to 12 do

begin

read(pre);

now:=now+300-pre;

if now

program p_1;

var i,x,y,a:integer;

begin

x:=0; y:=0;

for i:=1 to 12 do

begin

readln(a);

y:=y+300-a;

if y>=100 then begin

x:=x+y div 100;

y:=y mod 100;

end

else if y=0 then write(x*120+y);

end.