Проверить, есть ли в данной строке одинаковые символы.
Проверить, есть ли в данной строке одинаковые символы.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы