pascal
源代码

语言: Pascal 用户名: moment 题号: 1131

var
a:array[1..10] of integer;
n,i,s:integer;
begin
for i:=1 to 10 do
read(a[i]);
readln(n);
n:=n+30;
s:=0;
for i:=1 to 10 do
if n>=a[i] then
inc(s);
writeln(s);
end.

#include <iostream>
using namespace std;

int main()
{
int distance[10];
for(int i=0;i<10;i++)
cin>>distance[i];
int height;
int apple;
cin>>height;
height+=30;
for(int j=0;j<10;j++)
{
if(height>=distance[j])
apple++;
}
cout<<apple<<endl;
return 0;
}

水题不可放过

测试数据 #0: Accepted, time = 0 ms, mem = 440 KiB, score = 10
测试数据 #1: Accepted, time = 0 ms, mem = 440 KiB, score = 10
测试数据 #2: Accepted, time = 0 ms, mem = 436 KiB, score = 10
测试数据 #3: Accepted, time = 0 ms, mem = 440 KiB, score = 10
测试数据 #4: Accepted, time = 0 ms, mem = 440 KiB, score = 10
测试数据 #5: Accepted, time = 0 ms, mem = 440 KiB, score = 10
测试数据 #6: Accepted, time = 0 ms, mem = 440 KiB, score = 10
测试数据 #7: Accepted, time = 0 ms, mem = 436 KiB, score = 10
测试数据 #8: Accepted, time = 0 ms, mem = 440 KiB, score = 10
测试数据 #9: Accepted, time = 0 ms, mem = 436 KiB, score = 10
Accepted, time = 0 ms, mem = 440 KiB, score = 100
代码
#include<stdio.h>
#include<stdlib.h>
#include<mem.h>
using namespace std;
int a[20];
int main(){
int i,j,n,s=0;;
for (i=1;i<=10;i++) scanf("%d",&a[i]);
scanf("%d",&n);
for (i=1;i<=10;i++) if (n+30>=a[i]) s++;
printf("%d\n",s);
//system("PAUSE");
return 0;
}

var a:array[1..10]of integer;
i,n,j:integer;
begin
for i:=1 to 10 do
read(a[i]);
readln(n);
j:=0;
for i:=1 to 10 do
if n+30>=a[i] then
j:=j+1;
writeln(j);
readln;
end.

#include<stdio.h>
int main(void)
{
int i,sum=0,a[10],h;
for(i=0;i<10;i++)
scanf("%d",&a[i]);
scanf("%d",&h);
for(i=0;i<10;i++)
if(a[i]<=h+30)
sum++;
printf("%d\n",sum);
return 0;
}

program xf;

var

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

n,j,i:integer;

begin

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

read(n);

j:=0;

for i:=1 to 10 do begin

if a[i]

+Rp

卖得一手好水题。。。。。。。。。。。。。。

点这里查看程序源码+详细题解

var

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

n,s,i:longint;

begin

for i:=1 to 10 do

read(a[i]);

readln(n);

n:=n+30;

for i:=1 to 10 do

if n>=a[i] then inc(s);

writeln(s);

end.

// 陶陶摘苹果； 

#include

using namespace std;

int main ( )

{

int pingguo[10];

int shengao;

int zhai = 0;

for ( int i = 0; i < 10; i++ )

{

cin >> pingguo[i];

}

cin >> shengao;

shengao += 31;

for ( int i = 0; i < 10; i++ )

{

if ( shengao > pingguo[i] )

{

zhai += 1;

}

}

cout

没有人发这题C++的题解吗?

var a:array[1..10] of integer;i,x,y:integer;beginy:=0;for i:=1 to 10 doread(a[i]);read(x);for i:=1 to 10 doif x+30>=a[i] then y:=y+1;write(y);end.

点击查看代码

点击查看代码

好吧 我直接在提交框里编辑的 最后一个符号'.'被我打成了';'所以提交了两次。。

var i,j,z,n,m,t,k:longint;

　　a,b:array[1..2000] of longint;

procedure try;

begin

for j:=1 to m do

begin

if (a[i]>b[j])and(b[j]>0) then begin

　　 z:=z+1;b[j]:=maxint;exit;end;

end;

end;

begin

readln(n,m);k:=1;

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

for i:=1 to m do readln(b[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

　　 begin

　　 if a[i]

sdfczczczc

program lhc13;

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

n,s,i:longint;

begin

s:=0;

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

read(n);

for i:=1 to 10 do

if n+30>a[i] then

s:=s+1;

write(s);

end.

大家帮我看看哪里错了。

var i,k,s:longint;

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

begin

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

readln(k);

for i:=1 to 10 do if k+30>=a[i] then inc(s);

writeln(s);

end.

我靠，这题这么难怎么通过率这么高