С клавиатуры вводится 10 чисел. Найти произведение тех чисел, которые попадают на интервал (5, B), В граница интервала (вводим с клавиатуры).
Ответы на вопрос
Ответил LRSM
1
PascalABC.NET:
- ##
- var a := ReadArrInteger('Введите 10 чисел:', 10);
- var B := ReadInteger('Введите B:');
- a.Where(x → x in 6..(B-1)).Product.Print
Приложения:
Это стандартные методы PascalABC.NET.
Новые вопросы
ReadInteger(prompt) --- Выводит приглашение к вводу prompt и возвращает значение типа integer, введенное с клавиатуры.
.Product --- Возвращает произведение элементов последовательности.
.Where --- Возвращает последовательность элементов, удовлетворяющих заданному условию.
.Print --- Выводит последовательность на экран.