Question

Напишите программу, которая получает с клавиатуры натуральное число и определяет, есть ли в его десятичной записи одинаковые цифры, стоящие рядом.
Пример:​Пример:
Введите число: 553​Введите число: 535
Ответ: да.​Ответ: нет.
Паскаль!!!

Answer 1

var

 i:integer;

 s:string;

begin

 readln(s);

 for i:=1 to length(s)-1 do

   if s[i]=s[i+1] then begin

     writeln('Да');

     exit;

   end;

 writeln('Нет');

end.

Пояснения:

для поиска повторяющихся цифр во введённом числе, будем проверять соседние числа. Проще перевести это число в строку и проверять соседние символы. Поэтому сразу считаем введённое число как строку символов. Это позволит так же использовать эту программу для поиска одинаковых соседних символов в обычном тексте (string).

В цикле проверяем соседние символы на равенство.