решить задачу на Паскале Дано N действительных случайных чисел в диапазоне от 1 до 10.
Все элементы последовательности, значение которых меньше двух,
заменить на ноль, кроме того, получить сумму элементов,
находящихся в диапазоне от 3 до 6, а также подсчитать их количество.

165

296

Посмотреть ответы 1

Ответы на вопрос:

Тунгышбаева82

Информатика

4,6(38 оценок)

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var n: = readinteger('n ='); var agg: = 1; while (n > 0) do begin agg *= n mod 10; n : = n div 10; end; writeln(agg); end. примеры: n = 10350 `````````````````````` n = 123424