Question

Разработать программу, которая по введенному трехзначному числу определяет, является ли сумма его цифр двузначным числом, и есть ли в записи этого числа 4 или 7.

Answer 1

//PascalABC.NET 3.4.2

begin

 var num := readinteger('Введите число:').ToString;

 if(num.Sum(x -> strtoint(x)) in [10..99]) then  

   write('Сумма цифр является двузначным числом,')

 else  

   write('Сумма цифр не является двузначным числом,');

 if(num.Contains('4')) or (num.Contains('7')) then

   write(' в записи этого числа есть числа 4 или 7.')

 else  

   write(' в записи этого числа нет числа 4 или 7.');

end.

Answer 2

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

pythonCopy code
def is_two_digit_sum(number):
    # Проверяем, является ли сумма цифр двузначным числом
    digits_sum = sum(int(digit) for digit in str(number))
    return 10 <= digits_sum <= 99

def has_4_or_7(number):
    # Проверяем, есть ли 4 или 7 в записи числа
    return '4' in str(number) or '7' in str(number)

def main():
    try:
        # Вводим трехзначное число
        num = int(input("Введите трехзначное число: "))

        # Проверяем условия
        if len(str(num)) == 3:
            if is_two_digit_sum(num):
                print("Сумма цифр является двузначным числом.")
            else:
                print("Сумма цифр не является двузначным числом.")

            if has_4_or_7(num):
                print("В числе есть цифра 4 или 7.")
            else:
                print("В числе нет цифр 4 или 7.")
        else:
            print("Вы ввели не трехзначное число.")
    except ValueError:
        print("Ошибка: Введите целое трехзначное число.")

if __name__ == "__main__":
    main()

Программа опрашивает пользователя, чтобы ввести трехзначное число. Затем она проверяет, является ли сумма его цифр двузначным числом, и есть ли в числе цифры 4 или 7. В результате программа выводит соответствующие сообщения.