Question

ПЛАЧУ МНОГО БАЛЛОВ!!! Дано натуральное четырехзначное число N. a) Проверить есть ли в записи числа три одинаковые цифры.

Answer 1

Var
  a: Array [0..9] of Integer;
  n, min,max: Integer;

begin
  readln(n);
  min:=9;
  max:=0;
  while (n > 0) do begin
    inc(a[n mod 10]);
    if n mod 10<min then min:=n mod 10;
    if n mod 10>max then max:=n mod 10;   
    n := n div 10;
  end;

  for n := 0 to 9 do
   if a[n] = 3 then writeln('В числе есть 3 одинаковые',n);
 writeln('Максимальная цифра ',max);
 writeln('Минимальная  цифра ',min);
 
end.

Тест для числа:

222778999
В числе есть 3 одинаковые 2
В числе есть 3 одинаковые 9
Максимальная цифра 9
Минимальная  цифра 2

Answer 2

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

pythonCopy code
# Вводим четырёхзначное число N
N = int(input("Введите четырёхзначное число N: "))

# Переводим число в строку, чтобы легче работать с цифрами
N_str = str(N)

# Создаём множество, чтобы хранить уникальные цифры
unique_digits = set()

# Перебираем цифры числа
for digit in N_str:
    # Если цифра уже есть в множестве, то она повторяется
    if digit in unique_digits:
        print("В числе есть три одинаковые цифры.")
        break
    else:
        # Добавляем цифру в множество
        unique_digits.add(digit)
else:
    # Если весь цикл завершился без прерывания, то нет трёх одинаковых цифр
    print("В числе нет трёх одинаковых цифр.")

Этот код сначала переводит введённое число в строку, затем проходится по каждой цифре, добавляя их в множество unique_digits. Если цифра уже присутствует в множестве, то выводится сообщение о том, что в числе есть три одинаковые цифры. Если цикл завершается без прерывания, значит, трёх одинаковых цифр в числе нет.