Предмет: Информатика,
автор: guzanowa2013
Написать программу в Паскале, в которой нужно ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом.
Ответы
Автор ответа:
1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное число');
var r:=n.ToString.Pairwise.Where(t->t[0]=t[1]).Any;
if r then Writeln('Есть две одинаковые цифры, стоящие рядом')
else Writeln('Нет двух одинаковых цифр, стоящие рядом')
end.
Пример
Введите натуральное число 245005
Есть две одинаковые цифры, стоящие рядом
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное число');
var r:=n.ToString.Pairwise.Where(t->t[0]=t[1]).Any;
if r then Writeln('Есть две одинаковые цифры, стоящие рядом')
else Writeln('Нет двух одинаковых цифр, стоящие рядом')
end.
Пример
Введите натуральное число 245005
Есть две одинаковые цифры, стоящие рядом
Похожие вопросы
Предмет: МХК,
автор: polinaloceva011
Предмет: География,
автор: vhhjigv
Предмет: Математика,
автор: unicornxadi
Предмет: Математика,
автор: jannur77
Предмет: Физика,
автор: katyadikayaKatya