Проверить, есть ли в данной строке одинаковые символы.
Ответы на вопрос
Ответил Mepkypuu
0
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.
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.
Новые вопросы