ПОМОГИТЕ ПОЖАЛУЙСТА.Дано натуральное число n. Вычислите сумму и произведение четных...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА.Дано натуральное число n. Вычислите сумму и произведение четных натуральных чисел от 1 до n

Answer 1

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

begin
  var s:=Range(2,ReadInteger('n='),2);
  Writeln('S=',s.Sum,', П=',s.Aggregate(BigInteger(1),(p,q)->p*q))
end.

Пример
n= 57
S=812, П=81842841814930553085241614925824000000

Answer 2

#include

int main() {
  int s = 0, p = 1, n;
  std::cin >> n;
  for(int i = 1; i <= n; i++) {<br>     if(i%2 == 0) {
       s+=i;
       p*=i;
     }
  }
  std::cout << s << " " << p << std::endl;<br>}