Паскаль! напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221

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

55:5=11

365:11≈33(34) берём "34", чтобы перехлестнуть 365.

Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:

34*10=340 (340+34=374) - подходит, но это не максимум!

365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.

В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).

Проверка:

34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.

ответ: d=34. 

Август Кекуле
Август Кекуле - немецкий химик мирового
значения, открыл химическую формулу
бензола. Его избрали почетным членом многие
академии мира, с его мнением считались не
только ученые, но и промышленники.
Просмотров: 9437
Адольф фон Байер
Адольф фон Байер - немецкий химик,
анализируя обратный процесс, получение
индиго путем окисления изатина, впервые
сумел синтезировать индиго, сделав, таким
образом, возможным его промышленное
производство.
Просмотров: 6398
Александр Михайлович Бутлеров
Александр Михайлович Бутлеров - русский
химик, открытая им теория химического
строения служит теперь принципиальной
основой всех без исключения современных
разделов синтетической химии.
Просмотров: 11279
Альфред Вернер
Альфред Вернер - немецкий химик, открыл
оптически активные неорганические изомеры -
соединения кобальта, хрома, железа. Это было
крупным успехом дальнейшего развития
неорганической химии.
Просмотров: 6849
Антуан Лоран Лавуазье
Антуан Лоран Лавуазье — французский химик,
объяснил факт горения, — целый мир явлений
окисления, происходящих всегда и всюду — в
воздухе, земле, организмах — во всей мертвой
и живой природе.
Просмотров: 8849