UC知道pascal 笨小猴程序,谁帮忙看下哪错了,只50分
来源：百度知道 编辑：UC知道 时间：2024/06/29 22:48:44
var
words:string; a,c,i,s,m,max,min:integer; b:char;
begin
read(words); max:=0; min:=999;
c:=length(words);
for i:=1 to c do
begin
s:=0;
b:=words[1]; begin
repeat
a:=pos(b,words);
inc(s);
delete(words,a,1);
until pos(b,words)=0;
end;
if s>max then max:=s;
if s<min then min:=s;
if length(words)=0 then break;
end;
m:=max-min; if (m=0) or (m=1) then begin writeln('NO Answer'); writeln('0'); halt; end;
for i:=2 to (m-1) do
begin
if m mod i =0 then begin writeln('NO Answer'); writeln('0'); halt; end;
end;
writeln('Lucky Word') ; writeln(m);
end.
words:string; a,c,i,s,m,max,min:integer; b:char;
begin
read(words); max:=0; min:=999;
c:=length(words);
for i:=1 to c do
begin
s:=0;
b:=words[1]; begin
repeat
a:=pos(b,words);
inc(s);
delete(words,a,1);
until pos(b,words)=0;
end;
if s>max then max:=s;
if s<min then min:=s;
if length(words)=0 then break;
end;
m:=max-min; if (m=0) or (m=1) then begin writeln('NO Answer'); writeln('0'); halt; end;
for i:=2 to (m-1) do
begin
if m mod i =0 then begin writeln('NO Answer'); writeln('0'); halt; end;
end;
writeln('Lucky Word') ; writeln(m);
end.
var s:ansistring;
l,i,max,min:longint;
a:array['a'..'z']of longint;
k:char;
t:boolean;
function fa(x:longint):boolean;
var i:longint;
begin
fa:=false;
if (x<2)then exit;
for i:=2 to trunc(sqrt(x)) do if x mod i=0 then exit;
fa:=true;
end;
begin
assign(input,'word.in');reset(input);
assign(output,'word.out');rewrite(output);
readln(s);l:=length(s);
for i:=1 to l do inc(a[s[i]]);
max:=0;min:=maxlongint;
for k:='a' to 'z' do
if a[k]<>0 then
begin
if a[k]>max then max:=a[k];
if a[k]<min then min:=a[k];
end;
t:=fa(max-min);
if t then
begin writeln('Lucky Word');writeln(max-min);end
else begin writeln('No Answer');writeln(0);end;
close(output);
end.
program P1495;
var s:string;
b:array [1..26] of int