Размещено 3 года назад по предмету
Информатика
от phatro
Перевести с Паскаля на С++
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.