[Help]Pascal lớp 11

Ai giải giúp em bài này với

Nhập vào 1 xâu kí tự bất kì, đếm chiều dài chuỗi rồi cho bík có bao nhiêu kí tự giống nhau trong chuỗi đó

"có bao nhiêu kí tự giống nhau trong chuỗi" là sao nhỉ ? hơi mơ hồ, có ví dụ không em ?

Có anh
giả sử nhập hello
thì sẽ là 5 kí tự, và sẽ có 1 kí tự giống nhau là "ll"
giả sủ nhập helllllllllo
thì sẽ có 9 kí tự và có 1 kí tự giống nhau là "lllllllll"

vậy nhập hellllooooo thì nó đếm ra mấy ?

---

edit : thử thế này xem đúng yêu cầu đề không ?

Code:

program c3zone;
var str:string;
    dem:array['A'.. 'Z'] of integer;
    i:integer;
    ch:char;
begin
  writeln('-------------------------------');
  write('Nhap chuoi: ');
  readln(str);
  for i:=1 to length(str) do
    dem[upcase(str[i])]:= dem[upcase(str[i])]+1;
  writeln('-------------------------------');
  writeln('Chuoi co ',length(str),' ky tu');
  for ch:='A' to 'Z' do
    if dem[ch] > 1 then
      writeln('-- chu [',ch,'] co ',dem[ch],' ky tu giong nhau' );
  writeln;
  writeln('[ENTER] de ket thuc');
  readln;
end.

hellllooooo thì có 2 kí tự giống nhau và có 11 kí tự

vậy thì em sửa lại bài trên 1 chút là được

Sửa thế nào anh bày em với anh, em mù tịt mấy cái này, mà thứ 2 là thi học kì ùi, em chỉ bík mấy cái cơ bản àh, giúp em với

Bài trên có vẻ hợp yêu cầu hơn đó.

Nhập vào helllloooo
In ra :

Chuỗi có 10 ký tự.
Chữ L có 4 ký tự giống nhau
Chữ O có 4 ký tự giống nhau

Còn theo yêu cầu của e thì dùng code dưới đây
Nhập vào helllloooo
In ra :

Chuỗi có 10 ký tự.
Có 2 ký tự giống nhau

Code:

program c3zone;
var str:string;
    dem:array['A'..'Z'] of integer;
    i,n:integer;
    ch:char;
begin
  writeln('-------------------------------');
  write('Nhap chuoi: ');
  readln(str);
  for i:=1 to length(str) do
    dem[upcase(str[i])]:= dem[upcase(str[i])]+1;
  writeln('-------------------------------');
  writeln('Chuoi co ',length(str),' ky tu');
  for ch:='A' to 'Z' do
    if dem[ch] > 1 then
      inc(n);
  writeln('Co ',n,' ky tu giong nhau');
  writeln;
  writeln('[ENTER] de ket thuc');
  readln;
end.

Đúng rồi, :thx: anh nhiều ^^

@Việt: m có xài pascal để lập trình ko. sao còn nhớ hay vậy .. ^^

còn nhớ sơ sơ quên thì google lại