Пожаловаться
- 05.12.2015 02:37
- Информатика
- remove_red_eye 17216
- thumb_up 38
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,1,99); a.Println;
Writeln('Р4=',a.Where(x->x mod 4=0).Aggregate(1,(x,y)->x*y))
end.
Пример
36 55 99 11 96 46 91 53 64 85 19 55 7 15 34
Р4=221184
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,1,99); a.Println;
Writeln('Р4=',a.Where(x->x mod 4=0).Aggregate(1,(x,y)->x*y))
end.
Пример
36 55 99 11 96 46 91 53 64 85 19 55 7 15 34
Р4=221184
Пожаловаться
- 06.12.2015 12:14
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы