сор по информатики нужна и я

Question

Информатика: сор по информатики нужна и я

danilkalmykov1 · Accepted Answer

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure L(s:sequence of integer);
begin
s.Print(',');
Writeln(': S=',s.Sum,', П=',s.Aggregate(BigInteger(1),(p,q)->p*q))
end;

begin
var n:=ReadInteger('n=');
L(Range(1,2*n-1,2));
L(Range(2,2*n,2));
L(Range(3,3*n,3));
L(Range(4,4*n,4))
end.

Пример
n= 10
1,3,5,7,9,11,13,15,17,19: S=100, П=654729075
2,4,6,8,10,12,14,16,18,20: S=110, П=3715891200
3,6,9,12,15,18,21,24,27,30: S=165, П=214277011200
4,8,12,16,20,24,28,32,36,40: S=220, П=3805072588800

MOGZ ответил