Перевести с Паскаля на С++ var
s, p: longint;
i, j, n: integer;

begin
Write('Введите n: '); Readln(n);
s := 0;
for i := 1 to n do
begin
p := 1;
for j := i to 2 * i do p := p * j;
s := s + p
end;
Writeln('Сумма равна ', s)
end.

radomirboy radomirboy    1   20.12.2020 16:21    0

Ответы
danilshcherbin danilshcherbin  19.01.2021 16:22

#include <iostream>

using namespace std;

int main() {

   long int p,s;

   int i,j,n;

   s = 0;

   cout << "Введите n: " << endl;

   cin >> n;

   for(i = 1; i<=n;i++){

       p = 1;

       for(j = i; j<=2*i;j++){

           p*=j;

       }

       s+=p;

   }

   cout << "Сумма равна " << s << endl;

}

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика