Ответ учителя по предмету Информатика
// 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
Похожие вопросы от пользователей
Кому велено чирикать, не мурлыкайте! Кому велено мурлыкать, не чирикать!
А теперь без грамоты пропадёшь, далеко без грамоты не уйдёшь. Не попить без грамоты, не поесть, на воротах номера не прочесть!
Ни дома, ни в школе, нигде никому — не верил упрямый Фома ничему.
Определите вид предложений по цели высказываний и по интонации.
Выпишите глаголы с частицей *не*.
Назовите сказки.
1)Мир освещает?ся знанием 2)Кто (не) умеет повиноваться?ся, тот (не) умеет повеливать. 3)Друг за дружку держат?ся — нечего боят?ся 4)Грамоте учит?ся всегда пригодит?ся 5) Кто любит труд, тому без дела (не) сидит?ся 6)
Любишь катат?ся -люби и саночки возить