Question

Пожалуйста помогите)Напишите программу, которая определяет, верно ли, что введённое число содержит по крайней мере две одинаковых цифры, возможно, не стоящие рядом

Answer 1

Var
  s: string;
  i, j, n: integer;
  c: char;
  flag: boolean;

begin
  Write('Введите число: '); Readln(s);
  flag := false;
  n := length(s);
  i := 1;
  while (i <= n) and (not flag) do
  begin
    c := s[i];
    j := i + 1;
    while (j <= n) and (not flag) do
      if s[j] = c then flag := true else j := j + 1;
    if (not flag) then i := i + 1
  end;
  if flag then Writeln('Символ "', c, '" встречается больше одного раза')
  else Writeln('Все символы разные')
end.

Answer 2

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

def has_duplicate_digits(number):
    digits = [int(d) for d in str(number)]  # преобразуем число в список цифр
    unique_digits = set(digits)  # создаем множество уникальных цифр

return len(digits) != len(unique_digits)  # если длина списка не равна длине множества, значит есть повторяющиеся цифры

# Пример использования функции
number = int(input("Введите число: "))
if has_duplicate_digits(number):
    print(f"Число {number} содержит по крайней мере две одинаковые цифры.")
else:
    print(f"Число {number} не содержит двух одинаковых цифр.")

Эта программа принимает число от пользователя, затем преобразует его в список цифр. Затем она создает множество уникальных цифр и сравнивает его с исходным списком. Если длины не совпадают, значит есть хотя бы две одинаковые цифры в числе.