Напишите программу, которая определяет, верно ли, что введённое число содержит по крайней мере две одинаковых цифры, возможно, не стоящие рядом (как, например, 212). входные данные входная строка содержит одно натуральное число. выходные данные программа должна вывести слово 'yes', если в числе есть две одинаковые цифры, и слово 'no', если такой пары цифр нет. примеры входные данные 212 выходные данные yes входные данные 12345 выходные данные no на паскале, .
сич23
3
25.08.2019 12:40
16
Другие вопросы по теме Информатика
Alinaakconova9
19.12.2021 22:22
ник230903
19.12.2021 22:11
MissRapunzel
19.12.2021 22:06
makslitovchenk
23.08.2019 23:50
aman196oyl319
23.08.2019 23:50
abcdeshnik
23.08.2019 23:50
wertyfaq
23.08.2019 23:50
максим1722
23.08.2019 23:50
iwcukq
19.08.2019 01:40
Популярные вопросы
- 3. Через точки E и F, принадлежащие сторонам АВ и ВС треугольника АВС соответственно,...
3 - Прокомментировать слова и поступки Ивана Кузмича и Василисы Петрововны КАПЕТАНСКАЯ...
3 - . Сама не бум бум в инглише...
1 - Read the sentence and choose the correct option. Our company stopped…celebrities...
2 - Finish the sentences so that they are true for you. Many people believe I take...
1 - Х 5. ј Найдите: а) область определения функции, заданной формулой: 1) y=7-3х 2)...
2 - с тестом по англ ●Choose the correct answer.1.You can carry this kind of computer...
1 - Откройте скобки и поставьте прилагательное в правильную форму. Nick’s bag is (expensive)...
3 - Сор по русской литературе 8 класс...
1 - Постройте графики: выполните a и бЗадания на фото...
2
C:array[0..9] of integer;
Begin
ReadLn(A);
While A<>0 do
Begin
C[A mod 10]:=C[A mod 10]+1;
A:= A div 10;
End;
While (A<9)and(C[A]<2) do A:=A+1;
if C[A]>1 then WriteLn('YES')
else WriteLn('NO');
End.