Ввести целое число и определить,верно ли,что в его записи есть две одинаковые цифры,стоящие рядом.
Пример: 1234 1224
Нет Да
Кумир 7 класс

Var b,I,z,k: integer;

a:array[1..10000] of integer;

Begin

Read(b);

Z:=0;

K:=0;

While b>0 do

Begin

Z:=z+1;

a[z]:= b mod 10;

B:=b div 10;

End;

For I:=2 to z-1 do

If a[i]=a[i-1] or a[i]=a[i+1] then

K:=1;

If k=1 then writeln (‘Да’)

Else writeln (‘нет’);

End.

Второй способ:

Var a,b,c:integer;

Begin

Read(a);

K:=0;

C:=10; // это должно быть обязательно число, но не цифра

While a > 0 do

Begin

b:=a mod 10;

A:=a div 10;

If b=c then k:=1;

C:=b;

End;

If k=1 then writeln (‘да’)

Else (‘нет’);

End.