Вычислите для первых n элементов: 3+6+9+12+... и 3*6*9*12*... (С полным решением!)

Question

Вычислите для первых n элементов:
3+6+9+12+... и 3*6*9*12*...
(С полным решением!)

Answer 1

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var p:Biginteger:=1;
  var s:integer:=0;
  var n:=ReadInteger('Введите число');
  for var i:=1 to n do begin
    p:=p*3*i;
    s:=s+3*i;
  end;
  Println('Сумма кратных 3 =',s,' Произведение =',p);
end.

Тестовое решение:
Введите число 20
Сумма кратных 3 = 630  Произведение = 8483004771271882804592640000