Question

Создать массив двузначных чисел, произведение цифр которых не меньше 8. Найти количество таких чисел и вывести массив (паскале) Помогите пожалуйста ​

Answer 1

===== PascalABC.NET =====

begin

 var a := Range(10, 99)

     .Where(p -> (p mod 10) * (p div 10) >= 8).ToArray;

 Println('Найдено чисел:', a.Length);

 a.Print

end.

Answer 2

Давайте решим эту задачу на примере языка программирования Python. Мы создадим массив двузначных чисел, произведение цифр которых не меньше 8, найдем их количество и выведем массив.

pythonCopy code
def get_two_digit_numbers():
    two_digit_numbers = []
    for i in range(10, 100):
        # Произведение цифр числа
        product = (i // 10) * (i % 10)
        if product >= 8:
            two_digit_numbers.append(i)
    return two_digit_numbers

# Получаем массив двузначных чисел
result_array = get_two_digit_numbers()

# Количество таких чисел
count = len(result_array)

# Выводим массив и количество
print("Массив двузначных чисел, произведение цифр которых не меньше 8:")
print(result_array)
print("Количество таких чисел:", count)

Код проверяет каждое число от 10 до 99 (двузначные числа) и добавляет их в массив two_digit_numbers, если произведение его цифр не меньше 8. Затем выводит полученный массив и количество таких чисел.