Вычислите для первых N элементов: a) 1+3+5+7+... и 1*3*5*7*...; b)2+4+6+8+... и 2*4*6*8*...; c)3+6+9+12+... и 3*6*9*12*...; d)4+8+12+16... и 4*8*12*16*...; Например: При n=3 имеем 1+3+5=9; 1*3*5=15.
Вычислите для первых N элементов:
a) 1+3+5+7+... и 1*3*5*7*...;
b)2+4+6+8+... и 2*4*6*8*...;
c)3+6+9+12+... и 3*6*9*12*...;
d)4+8+12+16... и 4*8*12*16*...;
Например: При n=3 имеем 1+3+5=9; 1*3*5=15.
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы