Ответы
Ответ дал:
0
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(10, 1, 100);
var k := ReadInteger('k =');
writeln(a.Where(x -> x mod k = 0).Sum);
end.
begin
var a := ArrRandomInteger(10, 1, 100);
var k := ReadInteger('k =');
writeln(a.Where(x -> x mod k = 0).Sum);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад