uses crt;
type kmang=array[0..255] of integer;
var fi,fo:text;
st:string;
kq:kmang;
k,i:integer;
procedure khoitao;
begin
assign(fi,'PASSWORD.INP');
assign(fo,'PASSWORD.OUT');
{$I-} reset(fi); {$I+}
if ioresult<>0 then
begin
rewrite(fi);
reset(fi);
end;
read(fi,st); k:=0;
fillchar(kq,sizeof(kq),0);
close(fi); rewrite(fo);
end;
function snt(x:integer):boolean;
var tam:integer;
begin
snt:=true;
if x<2 then snt:=false
else
for tam:=2 to round(sqrt(x)) do
if x mod tam = 0 then exit(false);
end;
procedure tachso(xau:string; var kq:kmang; var k:integer);
var t1,t3,t4:integer;
t2:string;
begin
t1:=1;
while t1<=length(xau) do
begin
t2:=copy(xau,t1,4);
val(t2,t3); t4:=4;
while (snt(t3)=false) and (t3>0) do
begin
dec(t4);
t3:=t3 div 10;
end;
if t3>0 then
begin
inc(k);
kq[k]:=t3;
t1:=t1+t4;
end
else inc(t1);
end;
end;
procedure xuly;
var j,max:integer;
s1:string;
begin
i:=1;
while i<=length(st) do
begin
if st[i] in ['0'..'9'] then
begin
j:=i;
repeat
inc(j);
until
not(st[j] in ['0'..'9']);
s1:=copy(st,i,j-i);
tachso(s1,kq,k);
i:=j+1;
end
else inc(i);
end;
max:=kq[1];
for i:=2 to k do
if kq[i]>max then max:=kq[i];
write(fo,max);
end;
BEGIN
khoitao; xuly;
close(fo);
END.
Làm hơi bị lâu đó, cho mình câu trả lời hay nhất nha.
