Question

С клавиатуры вводится трёхзначное число. Состоит ли это число из одинаковых цифр? Помогите пожалуйста.

Answer 1

Ответ:

var

 a, n1, n2, n3: integer;

begin

 Writeln('Введите трехзначное число: ');

 Read(a);

 n1 := a div 100;

 n2 := (a div 10) mod 10;

 n3 := a mod 10;

 if (n1 = n2) and (n2 = n3) then

   Writeln('Все цифры одинаковые')

 else if (n1 = n2) or (n2 = n3) or (n1 = n3) then

   Writeln('Две цифры одинаковые')

 else  

   Writeln('Нет одинаковых');

end.

Answer 2

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

1. Сначала считайте трёхзначное число с клавиатуры.

2. Разделите это число на отдельные цифры: сотни, десятки и единицы. Например, если введенное число - 555, то сотни = 5, десятки = 5, единицы = 5.

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

pythonCopy code
number = int(input("Введите трёхзначное число: "))
hundreds = number // 100
tens = (number // 10) % 10
units = number % 10

if hundreds == tens and tens == units:
    print("Это число состоит из одинаковых цифр.")
else:
    print("Это число не состоит из одинаковых цифр.")

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