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

standartny1ychenik standartny1ychenik    2   25.02.2020 07:11    5

Ответы
zamanova05 zamanova05  11.10.2020 12:37

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

begin

 var a := Range(10, 99)

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

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

 a.Print

end.


Создать массив двузначных чисел, произведение цифр которых не меньше 8. Найти количество таких чисел
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика