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

Вот решение на паскале 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.