编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

#include "stdio.h"

int main()

{

int i,m=0,s=0,n;

for(i=1;i

program p1096;

var i,j,p:integer;

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

begin

for i:=1 to 12 do

readln(a[i]);

for i:=1 to 12 do

begin

inc(j,300-a[i]);

if j100 then

begin

inc(p,j div 100);

j:=j mod 100;

end;

end;

writeln(p*120+j);

end.

为什么不能得AC呢???????????

var

w:array[1..12] of real;

n:integer;

s,m:real;

begin

for n:=1 to 12 do

begin

readln(s);

w[n]:=s;

end;

s:=0;

m:=0;

for n:=1 to 12 do

begin

s:=s+300-w[n];

if s =100 do

begin

s:=s-100;

m:=m+100;

end;

end;

if n=12

then begin

s:=m*1.2+s;

writeln(s:0:0);

end;

end.

好猥琐的题目

integer*1.2不一定是integer

编译通过...

├ 测试数据 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

var a,mon,l,ma,t,maa:integer;

begin

l:=0;

ma:=0;

for mon:= 1 to 12 do

begin

readln(a);

l:= l + 300 ;

if l >= a then

begin

l:= l - a;

ma:= ma + l div 100 ;

l:= l - l div 100 * 100 ;

end

else

begin

writeln('-',mon);

halt;

end;

end;

writeln(ma*120+l);

end.

弱弱弱!!

#include

int main() {

int i,s=0,m=0,mm;

for(i=1;i

#include

int jinjinsmoney=0;/*jinjinsmoney:津津的剩余钱数*/

int main(){

int xh=0,jjyj[12],jjdd[12],a=0,mouth=0;

while(xh

program save;

var max,p,i,t,x:integer;

begin

max:=0; p:=0;

for i:=1 to 12 do

begin

read(x);

max:=max+300;

if max>=x then max:=max-x else begin t:=i; break; end;

if max>=100 then

begin

p:=p+max div 100;

max:=max mod 100;

end;

end;

if t>0 then writeln('-',t) else

writeln(p*120+max);

end.

var

i,a,b,ans:integer;

tf:boolean;

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

begin

a:=0;

b:=0;

tf:=false;

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

for i:=1 to 12 do

begin

a:=a+300;

if a

var i,k,t,p:longint;

begin

t:=0;

for i:=1 to 12 do

begin

inc(t,300);

readln(k);

if k>t then

begin writeln('-',i);exit;end;

dec(t,k);

p:=p+t div 100*100;

t:=t mod 100;

end;

writeln(p*1.2+t:0:0);

end.

const n=12;k=300;

var b,d,e,q,c,m:longint;

i:integer;

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

begin

e:=k;d:=0;c:=0;

for i:=1 to n do

read(a[i]);

for i:=1 to 13 do

begin

if i=13 then write(m*1.2+d:0:0);

if a[i]=100 then

begin

c:=b div 100 *100;

d:=e-c-a[i];

e:=k+d;

m:=m+c;

end

else

e:=k+b;

end

else

begin

q:=i;

write(-i);

break;

end;

end;

end.

很难啊！

不会做啊！

大牛们教教我吧！

可怜我这个乞丐仔吧！

我已经五天没有吃饭啦！

我已经三年没有洗澡啦！

行行好，给几个零钱，让我吃点面包粒吧！

我很惨啊！

救救我啊！

我上有九十岁的祖母！

下有刚出生的孙子！

一家有二十多个人，帮帮我吧！

#include

#define PER 300

int main()

{

int price[12]={0},i,k,rest=0;

float mun=0;

for(i=0;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.

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.

Var

mom,myself,i,month,aa:integer;

Begin

for i:=1 to 12 do

begin

readln(month);

inc(myself,300);

if month>myself then

begin

writeln(-i);

halt;

end else

begin

dec(myself,month);

aa:=myself div 100*100;

inc(mom,aa);

dec(myself,aa);

end;

end;

writeln(myself+mom*1.2:0:0);

End.

严重鄙视自己第一次把inc写错地方了= =……结果答案全部都多了300……

var i,j,l,q,w,e,m,n:longint;

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

k:real;

begin

q:=0;k:=0;

for i:=1 to 12 do

begin

q:=q+300;read(a[i]);q:=q-a[i];

if (q=0) then k:=-i;

if (q div 1000) and (k>=0) then

begin k:=k+100*(q div 100);q:=q-100*(q div 100);end;

end;

if k>=0 then k:=k*1.2+q;

write(k:0:0);

end.

比较白痴的做法

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

y,s,i,x:integer;

begin

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

s:=0;y:=0;i:=0;

while (y>=0) and (i12) do

begin

inc(i);

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

if y

编译通过...

├ 测试数据 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