Program P1102;

Var

H:array[1..10] of integer;

I,T,C:integer;

Begin

C:=0;

For i:=1 to 10 do begin

Read(H[i]);

end;

Read(T);

For i:=1 to 10 do begin

if (H[i]

#include

main()

{

int apple[10]={0};

int height,a,b=0,i;

for(i=0;i

#include

using namespace std;

main(){

int a[11],h,s=0,i;

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

cin>>h;

for(i=1;i=a[i]){s++;}

cout

program apple;

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

h,s,i:integer;

begin

s:=0;

for i:=1 to 10 do

read(a[i]);

read(h);

for i:=1 to 10 do

if (a[i]

靠

用c++一直都过不了

憋急了只好用pascal

低级啊

program r;

var

a,c,d:integer;

b:array[1..10] of integer;

begin

for a:=1 to 9 do read(b[a]);

readln(b[10]);

readln(d);

c:=0;

for a:=1 to 10 do

if b[a]

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

新来的小菜鸟纪念一下AC的第二道题~

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

这题有点水。。。

Program P1102;

CONST

chair=30;

VAR

a,b,c,d,e,f,g,h,i,j,taotao,all:Longint;

BEGIN

all:=0;

read(a,b,c,d,e,f,g,h,i,j);

readln(taotao);

if (a

我爱陶陶

我怀念陶陶

var

a,i,s:integer;

b:array[1..10] of integer;

begin

for i:=1 to 10 do

read(b[i]);

readln;

readln(a);

for i:=1 to 10 do

if a+30>=b[i] then s:=s+1;

write(s);

end.

program dfg;

var

i,k,n:longint;

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

begin

for i:=1 to 10 do

read(a[i]);

readln;

read(n);

k:=0;

for i:=1 to 10 do

if n+30>=a[i] then k:=k+1;

writeln(k);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program hanoidouble;

var

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

i,j,k,n:longint;

begin

readln(n); a[1]:=1;

for i:=1 to n+1 do

begin

for j:=1 to 70 do

begin

a[j]:=a[j]*2;

end;

for j:=1 to 69 do

begin

if a[j]>=10 then

begin

a[j+1]:=a[j+1]+a[j] div 10;

a[j]:=a[j] mod 10;

end;

end;

end;

for i:=70 downto 1 do

begin

if a[i]0 then break;

end;

a[1]:=a[1]-2;

for j:=i downto 1 do write(a[j]);

end.

第一遍时考虑进位问题少打了一个等号，到第二遍才AC，浪费正确率，郁闷ING

#include

int main(){

int i,max,num=0,h[10];

for (i=1;i

program p1;

var

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

i,j:integer;

begin

for i:=1 to 11 do

read(a[i]);

a[11]:=a[11]+30;

j:=0;

for i:=1 to 10 do

begin

if a[i]

var

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

n,i,tot:integer;

begin

for i:=1 to 10 do

　　read(a[i]);

readln;

read(n);

for i:=1 to 10 do

　　if (n+30>=a[i])

　　 then inc(tot);

write(tot);

end.

这个不对...

program tt(input,output);

var

p:array[1..10] of integer;

t,i,g:integer;

begin

for i:= 1 to 10 do

read(p[i]);

readln(t);

t:=t+30;

g:=0;

for i:=1 to 10 do

if (t>=p[i]) then

g:=g+1;

writeln(g);

end.

PROGRAM EX3;

VAR

A:ARRAY[1..12] OF LONGINT;

I:SHORTINT;

BEGIN

　　FOR I:=1 TO 11 DO READ(A);

A[12]:=0;

A[11]:=A[11]+30;

FOR I:=1 TO 10 DO IF A[11]>=A THEN A[12]:=A[12]+1;

WRITELN(A[12]);

END.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

哈哈,AC 成功啊

PROGRAM EX3;

VAR

A:ARRAY[1..12] OF LONGINT;

I:SHORTINT;

BEGIN

FOR I:=1 TO 11 DO READ(A);

A[12]:=0;

A[11]:=A[11]+30;

FOR I:=1 TO 10 DO IF A[11]>=A THEN A[12]:=A[12]+1;

WRITELN(A[12]);

END.

program p1102;

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

h,i,p:integer;

begin

for i:=1 to 10 do

read(a[i]);

readln;

read(h);

h:=h+30;p:=0;

for i:=1 to 10 do

if a[i]