Malolen
4 год назад
Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221). Входные данные Входная строка содержит одно натуральное число. Выходные данные Программа должна вывести слово 'YES', если в числе есть две одинаковые цифры, стоящие рядом, и слово 'NO', если такой пары цифр нет. Примеры входные данные 5221 выходные данные YES входные данные 1232 выходные данные NOПРОГРАММА ДОЛЖНА БЫТЬ С ЦИКЛОМ БЕЗ КОНСТАНТ
ОТВЕТЫ
Grosser Cathrin
Oct 24, 2020
Program n1;
var n: integer; b: boolean;
begin
readln(n);
n := abs(n);
b := false;
repeat
b := (n mod 10 = n mod 100 div 10) and (n > 0);
n := n div 10
until b or (n <= 9);
if b=false then writeln('no') else writeln('yes');
end.
var n: integer; b: boolean;
begin
readln(n);
n := abs(n);
b := false;
repeat
b := (n mod 10 = n mod 100 div 10) and (n > 0);
n := n div 10
until b or (n <= 9);
if b=false then writeln('no') else writeln('yes');
end.
110
Смежные вопросы:
