program p1495;

var

st:string;

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

i,len,max,min:longint;

function f(ch:char):longint;

begin f:=ord(ch)-ord('a')+1;end;

begin

readln(st);

len:=length(st);

for i:=1 to len do inc(a[f(st[i])]);

max:=0;

min:=maxlongint;

for i:=f('a') to f('z') do

if a[i]>max then max:=a[i]

else if (a[i]0) and (a[i]

直接一个'a'..'z'数组记录出现次数就搞定了。。感觉有点像2007第一题。。都是水水统计题。。今年如果再如此我也是无语。。

我在考虑这个题目描述非常恶心

所谓的文字题

编译通过...

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

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

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

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

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

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

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

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

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

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

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

第6个点？

program xiaohou;

const zhishu:array[1..25] of integer=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97);

var

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

re:string[100];

i,n,max,min:integer;

c:char;

begin

read(re);

for i:=1 to length(re) do

inc(danci[re[i]]);

max:=0;min:=200;

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

begin if danci[c]>max then max:=danci[c];

if (danci[c]

Flag 　　Accepted

题号 　　P1495

类型(?) 　　其它

通过 　　2314人

提交 　　5999次

通过率 　　39%

难度 　　1

第5999次提交！！！

水中之水

kao

我强烈鄙视这个题

编译通过...

├ 测试数据 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='p1495';

prime:array[1..25]of integer=(2,3,5,7,11,13,17,19,

23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97);

var

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

i,maxn,minn,ans:integer;

s:string;

c:char;

b:boolean;

begin

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

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

readln(s);

for i:=1 to length(s)do

inc(a[s[i]]);

maxn:=0;minn:=1000;

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

begin

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

if (a[c]0)and(a[c]

var

st:string;

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

i1:char;

i,max,min:integer;

function shi(n:integer):boolean;

var

k,i:integer;

begin

if nmax then max:=a[i1];

if (a[i1]0) then min:=a[i1];

end;

max:=max-min;

if shi(max) then

begin

writeln('Lucky Word');

write(max);

end

else

begin

writeln('No Answer');

write('0');

end;

end.

一次AC -——-

#include

main(){

int d,s,i=0,j,k,z,c;

char a[100]={},p;

int b[100]={};

scanf("%s",&a);

for(j=0;j

去年考试时居然做错了，唉。。。

往事不堪回首

通过 　　2030人

好歹是个十位整数，庆祝下

注意,一定要认证的读题，

题目、、认真读、

program p1495;

var

c:array[char] of integer;

t:string;

q:char;

max,min,m,a,i:integer;

procedure change(var a,b:integer);

var

c:integer;

begin

c:=a;

a:=b;

b:=c;

end;

begin

read(t);

max:=1; min:=100;

for a:=1 to length(t) do

inc(c[t[a]]);

a:=c['a'];

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

if a

var

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

min,max:integer;

i,j,k,long,m,lo:integer;

s:string;

op:char;

th:boolean;

function prime(n:integer):boolean;

begin

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then begin

prime:=false;

exit;

end;

prime:=true;

end;

begin

read(s);

long:=length(s);

for i:=1 to long do

begin

a[s[i]]:=a[s[i]]+1;

end;

k:=0;

m:=100;

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

begin

if a[op]>k then k:=a[op];

if (a[op]

TMD 题目太阴险了，最少的出现次数是：字母必须在单词中出现，且数量最少。。。。。。。害我WA了N次

MG!!!!!!!!!!!!

判断质数写成

int zs(int x){

int i,j;

if (x==0 || x==1) return 0;

if (x==2) return 1;

for (i=2;i

我#!!!

answer居然写成了anser!!!!

交了4次

真水题！！！

var

str:string;

i,j,l,max,min,t:longint;

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

function sushu(n:longint):boolean;

var

i,j:longint;

begin

sushu:=false;

if n=1 then exit;

if n=0 then exit;

for i:=2 to trunc(sqrt(n)) do begin

if (n/i)=trunc(n/i) then exit;

end;

sushu:=true;

end;

begin

read(str);

l:=length(str);

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

for i:=1 to l do begin

t:=ord(str[i])-96;

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

end;

max:=0;

min:=100;

for i:=1 to 26 do begin

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

if a[i]0 then

if a[i]

为什么有错？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

program p1495;

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

st:string; ch:char;

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

function prime(s:integer):boolean;

var i,j,k,l:integer;

begin

prime:=true;

for i:=2 to trunc(sqrt(s)) do

if s mod i=0 then begin prime:=false; exit; end;

end;

begin

readln(st); min:=999;max:=-10;

for i:=1 to length(st) do

begin

inc(cha[st[i]]);

if cha[st[i]]>max then max:=cha[st[i]];

end;

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

if (cha[ch]

测试通过 真是郁闷 题目没看清 原来输出 NO Answer 还要输出0 没看见

program ec;

var str:string;

l,i,max,min:longint;

a:array[1..30] of 0..100;

function pan(k:integer):boolean;

var i,j:integer;

begin

if (k=1)or(k=0) then pan:=false

else begin

j:=trunc(sqrt(k));

for i:=2 to j do

if k mod i =0 then pan:=false else pan:=true;

end;

end;

begin

read(str);

l:=length(str);

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

for i:=1 to l do

a[ord(str[i])-96]:=a[ord(str[i])-96]+1;

max:=0;

min:=100;

for i:=1 to 26 do

if a[i]0 then begin

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

if a[i]