Question

Нужно написать программу, которая проверяет состоит ли трёхзначное число из одинаковых цифр ( например 555). И расписать в формуле эту цифру - 555.

Answer 1

var

a:integer;

a1, a2, a3:byte;

begin

read(a);

a3:=a mod 10;

a2:=a div 10 mod 10;

a1:=a div 100;

if (a1=a2) and (a2=a3) then

write(a);

Answer 2

Var

n:integer;

begin

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

readln (n);

if (n mod 10 = n div 100) and (n mod 10=n mod 100 div 10) then writeln ('Да') else writeln ('Нет');

end.

Answer 3

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

pythonCopy code
def is_all_digits_same(number):
    # Преобразуем число в строку, чтобы обращаться к отдельным цифрам
    number_str = str(number)
    
    # Проверяем, что длина числа равна 3
    if len(number_str) != 3:
        return False

    # Сравниваем каждую цифру с первой
    if number_str[0] == number_str[1] == number_str[2]:
        return True
    else:
        return False

def get_formula_for_same_digits(number):
    # Преобразуем число в строку, чтобы обращаться к отдельным цифрам
    number_str = str(number)

    # Формируем формулу вида "abc" для числа "aabbcc"
    formula = f"{number_str[0]}{number_str[0]}{number_str[0]}"
    return formula

# Тестирование программы
num_to_check = 555
if is_all_digits_same(num_to_check):
    formula = get_formula_for_same_digits(num_to_check)
    print(f"Число {num_to_check} состоит из одинаковых цифр - {formula}.")
else:
    print(f"Число {num_to_check} не состоит из одинаковых цифр.")

Программа проверит, состоит ли число num_to_check из одинаковых цифр (в данном случае, 555) и, если это так, выведет формулу 555. Если число не удовлетворяет условиям (не трёхзначное или состоит из разных цифр), будет выведено сообщение об этом.