Tin học Xâu con dài nhất

[Nhật Hạ !]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho một xâu kí tự St bao gồm các chữ cái thường (‘a’..’z’) và các chữ số (‘0’..’9’). Hãy tìm số lượng kí tự liên tiếp nhiều nhất mà khác nhau đôi một của xâu con trong xâu St
Dữ liệu vào: File văn bản LEN.inp gồm một dòng chứa sâu St
Dữ liệu ra: Gồm một dòng chưa số lượng kí tự liên tiếp nhiều nhất của xâu con cần tìm.
Ví dụ:
Dữ liệu vào: caaqcd
Dữ liệu ra: 4
4 là độ dài của xâu con aqcd

 

[Khổng NT]

Mình làm như này,nãy đọc nhầm đề sr

Var a:array[0..1000000] of longint;
i,j,d,max,x:longint;
s:ansistring;
Begin
assign(input,'XCDN.inp');reset(input);
assign(output,'XCDN.out');rewrite(output);
readln(s);
j:=1;
for i:=j to length(s)-1 do
begin
fillchar(a,sizeof(a),0);
if not (s in['0'..'9']) then inc(a[ord(s)])
else
begin
val(s,x);
inc(a[x]);
end;
d:=1;
for j:=i+1 to length(s) do
begin
if not (s[j] in['0'..'9']) then
begin
if a[ord(s[j])]=0 then
begin
inc(d);
inc(a[ord(s[j])]);
end
else break;
end
else
begin
val(s[j],x);
if a[x]=0 then
begin
inc(d);
inc(a[x]);
end
else break;
end;
end;
if max<d then max:=d;
end;
write(max);
End.