这题是很水，不细心的话。。。。。

难怪不少人比赛时栽了

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program p1495(input,output);

var

s:string;

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

i,l,max,min,x:integer;

begin

readln(s);

l:=length(s);

fillchar(a,sizeof(a),0);

max:=0;

min:=maxint;

for i:=1 to l do

inc(a[ord(s[i])-ord('a')+1]);

for i:=1 to 26 do

begin

if a[i]>max

then max:=a[i];

if (a[i]

var s:string;

b:array[0..26] of integer;

i,max,min:integer;

function zs(n:integer):boolean;

var j:integer;

begin

zs:=true;

if (n=1) or (n=0) then begin zs:=false; exit; end;

for j:=2 to round(sqrt(n)) do

if n mod j=0 then

begin

zs:=false;

exit;

end;

end;

begin

readln(s);

for i:=1 to length(s) do

inc(b[ord(s[i])-96]);

for i:=1 to 26 do

if b[i]>max then max:=b[i];

min:=max;

for i:=1 to 26 do

if (b[i]

把not eoln写成eoln,调试的半死

program ex72;

var a,i:char;

b:array['a'..'z']of integer;

j,k,min,max:integer;

begin

fillchar(b,sizeof(b),0);

while not eoln do

begin

read(a);

b[a]:=b[a]+1;

end;

min:=maxint;

max:=0;

for i:='a' to 'z' do

if (b[i]>0)and(b[i]0)and(b[i]>max) then max:=b[i];

k:=max-min;

if k=0 then

begin

writeln('No Answer');

writeln(0);

halt;

end;

if k=1 then

begin

writeln('No Answer');

writeln(0);

halt;

end;

for j:=2 to round(sqrt(k)) do

if k mod j=0 then

begin

writeln('No Answer');

writeln(0);

halt;

end;

writeln('Lucky Word');

write(k);

end.

晕，没AC！

农夫山泉

program FlyPas_149;

var

a:array['a'..'z'] of integer;

s:string;

i,res:integer;

j,k,p:char;

function itis(c:integer):boolean;

var

i,j,kend:integer;

begin

if (c=0) or (c=1) then begin itis:=false; exit; end;

itis:=true;

kend:=trunc(sqrt(c));

for i:=2 to kend do

if (c mod i)=0 then itis:=false;

end;

begin

readln(s);

for i:=1 to length(s) do

inc(a[s[i]]);

p:='a';

for j:='a' to 'z' do

if a[j]>a[p] then p:=j;

for j:='a' to 'z' do

if a[j]0 then k:=j;

for j:='a' to 'z' do

if (a[j]

Program P1495(input,output);

Var

k,max,min,len,i,t:longint;

str:string;

zhi:boolean;

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

Procedure kuaipai(l,r:longint);

var

i,j:longint;

x,y:longint;

begin

i:=l;

j:=r;

x:=a[(l+r) shr 1];

repeat

while a[i]x do j:=j-1;

if (ij);

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

超水题，懒得判断，打表直接过

哪个帮我看一下.....................................

编译通过...

├ 测试数据 01：运行超时|格式错误...

├ 测试数据 02：运行超时|格式错误...

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

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

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

├ 测试数据 06：运行超时|格式错误...

├ 测试数据 07：运行超时|格式错误...

├ 测试数据 08：运行超时|格式错误...

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

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

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

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

var l:array['a'..'z'] of integer;

s:string;b:boolean;

minn,maxn,i:integer;

i1:char;

begin

fillchar(l,sizeof(l),0);

readln(s);

minn:=maxint;

maxn:=-maxint;

for i:=1 to length(s) do

inc(l[s[i]]);

for i1:='a' to 'z' do

begin

if (l[i1]0) and (l[i1]maxn then maxn:=l[i1];

end;

b:=true;

if (maxn-minn)>1 then begin

for i:=(maxn-minn-1) downto 2 do

if (maxn-minn) mod i=0 then b:=false;

end

else b:=false;

if b then begin writeln('Lucky Word');write(maxn-minn); end

else write('No Answer');

end.

第1495个,HoHo~~

PS：交了3次才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 s:string;

function min(s:string):integer;

var a:integer;

b:array[97..122] of integer;

begin

fillchar(b,sizeof(b),0);

for a:=1 to length(s) do

inc(b[ord(s[a])]);

min:=maxint;

for a:=97 to 122 do

if (b[a]max then max:=b[a];

end;

function iszs(a:integer):boolean;

var b:integer;

begin

if a

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program p1495;

var a:string;

n,m,i,j,max,min:integer;

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

zhi:boolean;

begin

readln(a);

m:=length(a); n:=0;

fillchar(b,sizeof(b),0);

for i:=1 to m do

for j:=1 to m do

if a[i]=a[j] then b[i]:=b[i]+1;

max:=0;min:=100;

for i:=1 to m do

begin

if b[i]>max then max:=b[i];

if b[i]

我交了五次，错了五次，优化了五次，郁闷了五次，咋就不过？！后来发现‘No'中的'o'是小写，差点崩溃，但总算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 dsa;

var s1:string;

t,i:integer;

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

function zhishu(x:integer):boolean;

var i:integer;

begin

zhishu:=false;

if (x=1) or (x=0) then exit;

if x=2 then begin zhishu:=true;exit;end;

for i:=2 to trunc(sqrt(x)) do if x mod i=0 then exit;

zhishu:=true;

end;

procedure qs(l,r:longint);

var i,j,x,y:longint;

begin

i:=l;j:=r;x:=a[(l+r) div 2];

repeat

while a[i]>x do inc(i);

while a[j]

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

一年没搞电脑了，用一道水题找回自信。。。

#include

#include

#include

using namespace std;

main ()

{

int b,a1,max,min;

max=0;

min=105;

int c[26]={0};

char a[108];

cin>>a;

a1=strlen (a);

for (int i=0;i

program ex1;

var s:string;

m,n,i,j:longint;

a:array['a'..'z']of longint;

c:char;

b:boolean;

begin

readln(s);

fillchar(a,sizeof(a),0);

for i:=1 to length(s) do

inc(a[s[i]]);

m:=0;

n:=101;

for c:='a' to 'z' do

begin

if a[c]>m then m:=a[c];

if a[c]

#include

#include

using namespace std;

int main()

{

string a;

int i,count[26],t=1,h=10000,x,f=0;

cin>>a;

for(i=0;i

水题 1难道不是质数吗？它只能被自己整除啊~害我WA了次

Miller-Rabin素数测试