Проверить, есть ли в данной строке одинаковые символы.

Question

Проверить, есть ли в данной строке одинаковые символы.

Comments

скорее всего паскаль)

---

в паскале abc

---

хорошо^^

---

а нужно подсчитать кол-во повторяющихся символов или что?

---

в ответе что вывести?

---

да или нет

---

так пробел тоже символ, он в любом случае будет повторяться_)

---

если строка состоит из одного слова то надо проверить повторяются ли буквы

---

оу спасибо:))

---

агась)

Answer 1

Var i,j,count: integer;
st:string;
begin
readln(st);
for i:= 1 to length(st) do 
for j:= i+1 to length(st) do 
if st[i]=st[j] then 
count:=1;
if count=1
thenwriteln('Yes')
else
writeln('No');
end.