Question

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

ЭТО ПАСКАЛЬ

Нужно составить программу с помощью цикла WHILE

Заранее СПАСИБО

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := Abs(ReadInteger('Введите целое число:'));

 var yes := False;

 var n1 := n mod 10;

 n := n div 10;

 while n > 0 do

 begin

   var n2 := n mod 10;

   if n1 = n2 then

   begin

     yes := True;

     break

   end;

   n := n div 10;

   n1 := n2

 end;

 if yes then Print('Верно')

 else Print('Неверно')

end.

А еще это можно решить, к примеру, так:

begin

 var s := Abs(ReadInteger('Введите целое число:')).ToString;

 if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')

 else Print('Неверно')

end.