Есть ответ 👍

Известно N чисел (числа задаются случайным образом в промежутке [-1; 25]). Определите сумму чисел, кратных 4. В качестве решения задачи необходимо представить программный код процедуры и протоколы (скрины) тестирования программного кода. PascalABCNET написать

296
421
Посмотреть ответы 2

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


begin

 ArrRandom(ReadInteger, -1, 25)  // массив случайных чисел

   .Println                      // вывести

   .Where(p -> p mod 4 = 0)      // отобрать кратные 4

   .Sum                          // найти их сумму

   .Print                        // вывести

end.


Известно N чисел (числа задаются случайным образом в промежутке [-1; 25]). Определите сумму чисел, к

корректировка трансформация коррекция художественные смешанная контур оболочка выдавливание линза добавить перспективу поворот копировать объект клонировать эффект

Популярно: Информатика