Question

Написать программу, которая проверяет следующий факт: Все цифры данного четырехзначного числа N различны

Answer 1

var n,a,b,c,d:integer;

begin

readln(n);

a:=n mod 10;

b:=(n div 10) mod 10;

c:=(n div 100) mod 10;

d:=n div 1000;

if((a-b<>0)or(c-d<>0)or(a-d<>0)) then writeln('Цифры введённого четырёхзначного числа различны') else

writeln('Цифры введённого четырёхзначного числа одинаковы');

end.

Answer 2

Конечно! Вот пример программы на языке Python, которая проверяет, все ли цифры в данном четырехзначном числе N различны:

pythonCopy code
def check_unique_digits(n):
    digits = set(str(n))  # Преобразуем число в строку и создаем множество из его цифр
    return len(digits) == 4  # Возвращаем True, если количество цифр равно 4, иначе False

# Пример использования:
number = 1234  # Задайте ваше четырехзначное число
if check_unique_digits(number):
    print("Все цифры числа", number, "различны.")
else:
    print("Число", number, "имеет повторяющиеся цифры.")

Вы можете задать значение переменной number на любое четырехзначное число, и программа выдаст соответствующий результат.

Например, если вы установите number = 1234, программа напечатает: "Все цифры числа 1234 различны." Если вы установите number = 1224, программа напечатает: "Число 1224 имеет повторяющиеся цифры."