Уровень B. Задачка M. Две однообразные числа рядомНапишите программку, которая определяет,
Уровень B. Задачка M. Две однообразные числа рядом
Напишите программу, которая определяет, правильно ли, что введённое число содержит две схожих числа, стоящие рядом (как, например, 221).
Входные данные
Входная строчка содержит одно натуральное число.
Выходные данные
Программка должна вывести слово 'YES', если в числе есть две однообразные числа, стоящие рядом, и слово 'NO', если таковой пары цифр нет.
Образцы
входные данные
5221
выходные данные
YES
входные данные
1232
выходные данные
NO
Уровень C.
Задача O. Две схожие числа
Напишите программу, которая определяет, правильно ли, что введённое число содержит по последней мере две одинаковых числа, вероятно, не стоящие рядом (как, к примеру, 212).
Входные данные
Входная строчка содержит одно естественное число.
Выходные данные
Программа обязана вывести слово 'YES', если в числе есть две схожие числа, и слово 'NO', если такой пары цифр нет.
Примеры
входные данные
212
выходные данные
YES
входные данные
12345
выходные данные
NO
// Внимание! Если программа не работает, обновите версию!
Задачка М
begin
var a:=ReadInteger.ToString.AdjacentGroup;
var f:=False;
foreach var g in a do
if g.Countgt;1 then begin
Write('YES'); f:=true; break
end;
if not f then Write('NO')
end.
Образцы
5221
YES
1232
NO
Задача О
begin
var s:=ReadInteger.ToString;
if s.Lengthlt;gt;(s.Distinct).Count then Write('YES')
else Write('NO')
end.
Образцы
212
YES
12345
NO
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.