Напишите программку, которая определяет, правильно ли, что введённое число содержит по

Question

Напишите программку, которая определяет, правильно ли, что введённое число содержит по

Напишите программку, которая определяет, правильно ли, что введённое число содержит по последней мере две одинаковых числа, вероятно, не стоящие рядом (как, к примеру, 212).

Входные данные
Входная строка содержит одно естественное число.

Выходные данные
Программа обязана вывести слово 'YES', если в числе есть две однообразные числа, и слово 'NO', если таковой пары цифр нет.

Образцы
входные данные
212
выходные данные
YES
входные данные
12345
выходные данные
NO

На паскале, пожалуйста.

Задать свой вопрос

Галя 2019-07-10 10:31:51

Case можно использовать?

Роман 2019-07-10 10:37:27

Можно

Мейнгард Марина 2019-07-10 10:39:28

И массив можно,?

Степан Рухлинский
Информатика
2019-07-10 10:29:50
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Площадь территории России составляет 1,7 107 км2, а Норвегии

какой объем углекислого газа выделится при содействии соды с 200 гр

Помогите решить задачку: На складе было 180,4 т угля. Для отопления

який навчальний предмет не обожала софiйка?

длина прямоугольника 36, а его ширина сочиняет третью часть длины. Вычисли

схожие слова к слову соседская

Купили 1/2 кг сахарного песка.1/4 часть израсходовали.Сколько сладкого песка осталось?

сосуд в форме куба с ребром 36 см заполнен водой и

Какое спряжение у глагола quot;бегаешьquot; ?

Анда-санда тмен алды енд скерше бгн кандай стеуге жатады. Безотлагательно!!!!!!!

Аделя · Answer 1 · 2019-07-10 10:32:33+3:00

Var A:integer;
C:array[0..9] of integer;
Begin
ReadLn(A);
While Alt;gt;0 do
   Begin
   C[A mod 10]:=C[A mod 10]+1;
   A:= A div 10;
   End;
While (Alt;9)and(C[A]lt;2) do A:=A+1;
if C[A]gt;1 then WriteLn('YES')
else WriteLn('NO');
End.

О проекте

Напишите программку, которая определяет, правильно ли, что введённое число содержит по

Добро пожаловать!