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.