thi tiếp à em ?
không ai giúp thì mình tự share code đây:
var d,j,i,d1,d2:integer;k:longint;s:string;
a:array[0..2000] of char;
begin
k:=0;
assign(input,'tenthieng.inp');reset(input);
assign(output,'tenthieng.out');rewrite(output);
read(s);
for i:=1 to length(s) do
begin
inc(d);a[d]:=s[i];
end;
for i:=1 to d do k:=k+i;
for i:=1 to d-1 do
for j:=i+1 to d do
if a[i]=a[j] then
begin
d1:=i;d2:=j;
while (a[d1]=a[d2]) do
begin
dec(k);
dec(d1);dec(d2);
end;
break;
end;
write(k);
readln
end.