uses crt;
var
s:string;
i,j,x:integer;
begin
clrscr;
x:=0;
writeln('Chislo:');
readln(s);
for i:=1 to length(s) do
for j:=1 to length(s) do
if (s[i]=s[j]) and (i<>j) then
x:=x+1;
if x>0 then writeln('YES') else writeln('NO');
readln;
end.
Или так
x:=0; //счётчик повторяющихся цифр
readln(s); //вводим число
for i:=1 to length(s) do // берём цифру для проверки
for j:=1 to length(s) do // цикл для сравнения выбранной цифры с остальными цифрами числа
if (s[i]=s[j]) and (i<>j) then //если цифры равны и их индексы различны (если не проверяет само себя) то
x:=x+1;//фиксируем совпадение
if x>0 then writeln('YES') else writeln('NO');//если совпадения были, то выводим ДА, иначе НЕТ
uses crt;
var
s:string;
i,j,x:integer;
begin
clrscr;
x:=0;
writeln('Chislo:');
readln(s);
for i:=1 to length(s) do
for j:=1 to length(s) do
if (s[i]=s[j]) and (i<>j) then
x:=x+1;
if x>0 then writeln('YES') else writeln('NO');
readln;
end.
Или так
uses crt;
var
s:string;
i,j,x:integer;
begin
clrscr;
x:=0; //счётчик повторяющихся цифр
writeln('Chislo:');
readln(s); //вводим число
for i:=1 to length(s) do // берём цифру для проверки
for j:=1 to length(s) do // цикл для сравнения выбранной цифры с остальными цифрами числа
if (s[i]=s[j]) and (i<>j) then //если цифры равны и их индексы различны (если не проверяет само себя) то
x:=x+1;//фиксируем совпадение
if x>0 then writeln('YES') else writeln('NO');//если совпадения были, то выводим ДА, иначе НЕТ
readln;
end.