Question

Определите есть ди среди цифр заданного целого трехзначного числа одинаковое

Answer 1

Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):

var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
d:=length(s);
if d<>3 then
write('Это не трёхзначное число!');
if d=3 then
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.

 

Простой вариант(выводится ошибка если цифр больше или меньше трёх!):

var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.


Даю 2 варианта, так-как незнаю,проходили ли вы функцию  "length" или нет.
Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.

Answer 2

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

1. Разделите трехзначное число на отдельные цифры. Например, если задано число 345, разделите его на цифры 3, 4 и 5. 2. Сравните каждую цифру с остальными цифрами, чтобы найти одинаковые цифры. 3. Если найдена хотя бы одна пара одинаковых цифр, то можно сделать вывод, что в заданном числе есть одинаковые цифры. Если все цифры различны, то в числе нет одинаковых цифр.

Например, для числа 345: - Цифра 3 не равна цифре 4 и цифре 5. - Цифра 4 не равна цифре 3 и цифре 5. - Цифра 5 не равна цифре 3 и цифре 4.

Таким образом, в числе 345 нет одинаковых цифр.

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

def has_duplicate_digits(number):
    digits = [int(digit) for digit in str(number)]
    for i in range(len(digits)):
        for j in range(i + 1, len(digits)):
            if digits[i] == digits[j]:
                return True
    return False

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

Примечание: В данном примере используется функция `has_duplicate_digits`, которая принимает число в качестве аргумента и возвращает `True`, если в числе есть одинаковые цифры, и `False` в противном случае.

Пожалуйста, обратите внимание, что данный код предоставлен в качестве примера и может быть адаптирован под конкретные требования и язык программирования.