Ввести целое число и определить,верно ли,что в его записи естьдве одинаковые цифры, не обязательно стоящие рядом. В КУМИРЕ

Для решения задачи нам нужно написать программу, которая проверяет, содержит ли введённое целое число две одинаковые цифры. Мы будем использовать язык программирования, поддерживаемый средой КУМИР (Курсы Учебного Модуля и Информационной Разработки). Вот пошаговое объяснение, как можно это реализовать. ### Шаг 1: Считывание числа Сначала нам нужно считать целое число, которое введет пользователь. В КУМИР это можно сделать с помощью функции `ReadInteger()`. ### Шаг 2: Преобразование числа в строку Чтобы проверить, есть ли одинаковые цифры, мы преобразуем число в строку. Это упростит обработку каждой цифры. ### Шаг 3: Проверка на наличие одинаковых цифр Сначала мы создадим пустой список для хранения уже встреченных цифр. Затем пройдём по каждой цифре в строковом представлении числа: - Если цифра уже есть в списке, это значит, что такая цифра встречалась ранее, и мы можем вывести результат. - Если цифры нет в списке, добавим её туда и продолжим проверку. ### Шаг 4: Вывод результата Если мы нашли одинаковую цифру, выводим сообщение об этом. Если после проверки всех цифр одинаковых не нашлось, также сообщаем об этом. ### Пример кода ```pascal var num: Integer; strNum: String; i: Integer; digit: Char; found: Boolean; existingDigits: Array[0..9] of Boolean; // массив для учета цифр begin // Считываем целое число num := ReadInteger(); // Преобразуем число в строку strNum := IntToStr(num); // Инициализируем массив, чтобы отслеживать, какие цифры встречались for i := 0 to 9 do existingDigits[i] := False; // Перебираем каждую цифру в строке found := False; for i := 1 to Length(strNum) do begin digit := strNum[i]; if existingDigits[Ord(digit) - Ord('0')] then begin found := True; // Найдена одинаковая цифра Break; end else begin existingDigits[Ord(digit) - Ord('0')] := True; // Отмечаем эту цифру как встреченную end; end; // Выводим результат if found then WriteLine('В числе есть две одинаковые цифры.') else WriteLine('В числе нет одинаковых цифр.'); end. ``` ### Объяснение кода 1. **Считывание числа**: Мы используем `ReadInteger()` для получения целого числа от пользователя. 2. **Преобразование в строку**: `IntToStr(num)` конвертирует число в строковый формат. 3. **Отслеживание встреченных цифр**: Мы создаём массив `existingDigits`, чтобы запоминать, какие цифры уже были. 4. **Основной цикл**: Мы пройти по каждому символу числа, проверяем, встречалась ли данная цифра ранее с помощью массива `existingDigits`. Если находили — отмечаем это, иначе добавляем в массив. 5. **Вывод результата**: Используем условие для вывода сообщения о наличии одинаковых цифр. Таким образом, программа позволяет определить, есть ли в числе одинаковые цифры, и всё легко и понятно.