Sonolrik
4 год назад
Ребят Пожалуйста посчитайте пожалуйста, В массиве c1, c2,..., c40 найти произведение чисел, не попавших в интервал [с, d].
ОТВЕТЫ
Otto Maja
Oct 24, 2020
- begin
- var c := ArrRandom(40, 1, 20);
- var (с, d) := ReadInteger2('Введите "с" и "d":');
- c.Println;
- Print('Произведение:', c.Product(x -> x in с..d ? 1:x))
- end.
- В соствии с условием задачи в решении используется переменная "с" (английская, с кодом 99) и "c" (русская, с кодом 1089).
748
Смежные вопросы:
