Программа паскаль Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221). Входные данные Входная строка содержит одно натуральное число. Выходные данные Программа должна вывести слово 'YES', если в числе есть две одинаковые цифры, стоящие рядом, и слово 'NO', если такой пары цифр нет.
Программа паскаль Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221). Входные данные Входная строка содержит одно натуральное число. Выходные данные Программа должна вывести слово 'YES', если в числе есть две одинаковые цифры, стоящие рядом, и слово 'NO', если такой пары цифр нет.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CheckAdjacentDigits;
var
num, currentDigit, previousDigit: integer;
hasAdjacentDigits: boolean;
begin
hasAdjacentDigits := false;
write('Enter a number: ');
readln(num);
previousDigit := num mod 10;
num := num div 10;
while num > 0 do
if currentDigit = previousDigit thenbegin
currentDigit := num mod 10;
begin
hasAdjacentDigits := true;
break;
end;
previousDigit := currentDigit;
num := num div 10;
end;
if hasAdjacentDigits then
writeln('YES')
else
writeln('NO');
end.