Question

Дано число n проверить есть ли в записи 3 одинаковых числа (число не больше 10 000)

Answer 1

Var A:array[1..5] of Integer;
j,l,i,k,N:integer;
begin
Readln(N);
While not(N=0) do
begin
k:=k+1;
A[k]:=N mod 10;
N:=N div 10;
end;
For i:=1 to min(3,k) do
begin
N:=A[i];
l:=0;
   For j:=1 to k do
   If N=A[j] then
   l:=l+1;
  If l>=3 then
  begin
  Writeln('В записи есть три одинаковых чисел');
  l:=20;
  break;
  end;
end;
  If not(l=20) then
  Writeln('В записи нет трех одинаковых чисел');
end.

Answer 2

Да, конечно, я могу помочь вам с этой задачей. Для проверки наличия трех одинаковых цифр в числе, нужно выполнить следующие шаги:

1. Преобразовать число в строку. 2. Перебрать каждую цифру в строке и подсчитать, сколько раз она встречается. 3. Если какая-то цифра встречается три раза или более, то число содержит три одинаковые цифры.

Пример кода на Python:

def has_three_equal_digits(n):
    # Преобразуем число в строку
    num_str = str(n)

# Создаем словарь для подсчета количества встреченных цифр
    digit_count = {}

# Перебираем каждую цифру в числе
    for digit in num_str:
        # Увеличиваем счетчик для данной цифры
        digit_count[digit] = digit_count.get(digit, 0) + 1

# Проверяем, если цифра встретилась три раза или более
        if digit_count[digit] >= 3:
            return True

# Если не найдено три одинаковые цифры
    return False

# Пример использования
number = 12345123  # Замените это число на ваше
result = has_three_equal_digits(number)

if result:
    print(f"Число {number} содержит три одинаковые цифры.")
else:
    print(f"Число {number} не содержит три одинаковые цифры.")

Просто замените значение переменной `number` на ваше число для проверки.