Составьте программу которая устанавливала бы нахождение повторяющихся букв в слове , т.е. показывала есть или нету .

Вот решение на паскале ABC, если нужно на другом языке программирования. Напишите на почту.var  a:string;  c:char;  n,i,i1:integer;begin  readln(a);  for i:=1 to length(a) do begin    c:=a[i];    for i1:=i+1 to length(a) do begin      if c = a[i1] then n:=n+1;    end;  end;  if n>0 then writeln('В слове ',n,' пар букв') else writeln('Буквы не повторяются') end.