Var n,i:integer; s:string; begin Write('Введите натуральное число: '); Read(n); Str(n,s); for i:=2 to Length(s) do if s[i]=s[i-1] then begin Writeln('Пара одинаковых цифр-соседей ',s[i]); Exit end; Writeln('В числе нет цифр, имеющих таких же соседей') end.
Пример Введите натуральное число: 375422453 Пара одинаковых цифр-соседей 2
n,i:integer;
s:string;
begin
Write('Введите натуральное число: '); Read(n);
Str(n,s);
for i:=2 to Length(s) do
if s[i]=s[i-1] then begin
Writeln('Пара одинаковых цифр-соседей ',s[i]);
Exit
end;
Writeln('В числе нет цифр, имеющих таких же соседей')
end.
Пример
Введите натуральное число: 375422453
Пара одинаковых цифр-соседей 2