Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом ( как, например 221 )
ЭТО ПАСКАЛЬ
Нужно составить программу с помощью цикла WHILE
Заранее СПАСИБО

Предыдущий
вопрос Следующий
вопрос

Программа на языке Pascal, которая проверяет, есть ли введенное число две одинаковые цифры, стоящие рядом:

program CheckAdjacentDigits;
var
number, currentDigit, previousDigit: integer;
hasAdjacentDigits: boolean;
begin
writeln('Введите число:');
readln(number);
hasAdjacentDigits := False;
previousDigit := -1; // начальное значение предыдущей цифры
while number <> 0 do
begin
currentDigit := number mod 10;
number := number div 10;
if currentDigit = previousDigit then
begin
hasAdjacentDigits := True;
break;
end;
previousDigit := currentDigit;
end;
if hasAdjacentDigits then
writeln('В числе есть две одинаковые цифры, стоящие рядом')
else
writeln('В числе нет двух одинаковых цифр, стоящих рядом');
end.

Программа запрашивает у пользователя ввести число, затем с помощью цикла while проверяет каждую цифру числа и сравнивает её с предыдущей цифрой. Если найдены две одинаковые цифры, стоящие рядом, программа завершает выполнение и выводит сообщение об этом.