Question

Написать программу в Паскале, в которой нужно ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом.

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите натуральное число');
  var r:=n.ToString.Pairwise.Where(t->t[0]=t[1]).Any;
  if r then Writeln('Есть две одинаковые цифры, стоящие рядом')
  else  Writeln('Нет двух одинаковых цифр, стоящие рядом')
end.

Пример
Введите натуральное число 245005
Есть две одинаковые цифры, стоящие рядом