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

Question

Информатика

Лександра

7 февраля, 00:11

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

+1

Ответы (1)

Знаете ответ?

Поляша · 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.