Вести целое число и определить, верно ли, что в его записи есть две одинаковые цифры, НЕ обязательно стоящие рядом.
Пример: Введите целое число
1234
Нет одинаковых цифр
Введите целое число
1242
Есть одинаковые цифры.
Язык программирования КУМИР.
Я пробовала вот сделать программу, но она определяет не верно:
алг
нач
цел a,b,c,d,e
вывод "Введите целое число", нс
ввод a
c:=0
e:=0
нц пока a>0 и e=0
b:=mod(a,10)
d:=1
нц пока d<=c и e=0
если d=b то e:=1
иначе d:=d+1
все
кц
если e=0 то
c:=c+1
c:=b
a:=div(a,10)
все
кц
если e=0 то вывод "Нет одинаковых цифр"
иначе вывод "Есть одинаковые цифры"
все
кон

Очень чтобы вы мне самостоятельно (а не содрали с инета, как делают многие на знаниях)

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998

Объясняю.За ответ отметить
1)сначала подставим значения в выражение:
НЕ(3больше2) и НЕ(3=5)
2)запишем значения выражения:
0 и 1
3)И-это связка &,в алгебре логики(информатика,9 класс) это у нас знак конъюнкции.
Определение:конъюнкция-логическое умножение.
Т.е. если все входящие переменные истинны(равны 1,ноль это ложь,а 1-истина),то и конъюнкция истинна.
Из выражения "не(X>Z)и не(X=Y), если X=3, Y=5, Z=2" мы имеем:
0 & 1.
0 не равен единице,из этого следует,что здесь конъюнкция ложна.
Кроме конъюнкции действий нет,а это значит,что она-это всё выражение.Если конъюнкция здесь ложная,то и выражение ложное,соотв.оно имеет значение 0.
ответ:0