Перевести с Паскаля на С++
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.
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.
More Questions From This User See All
Answers & Comments
#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;
}