Дано натуральное число n. Вычислить S

[Dimaska931]

Дано натуральное число n. Вычислить S=1*2+2*3*4+...+n*(n+1)...2n. Помогите пожалуйста написать программу, я совсем новичок...

[Mad_Cat]

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;

[Dimaska931]

Program chislo;
Uses crt;
Var p,
    s,
    i,
    j,
    n:integer;
Begin
Clrscr;
Writeln('Vvedite 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);
Readln
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Sciv]

Var p,
s,
i,
j,
n:integer;

можно было и в одну строчку. А так - все верно. Только код на форуме надо оформлять кнопкой # над полем ввода сообщения

[Dimaska931]

А как через while сделать?

[Sciv]

i:=1;
While i<= n do begin
  p:=1;
  j:=1;
  while j<=2*i do begin
    p:=p*j;
    inc(j);
  end;
  s:=s+p;
  inc(i);
end;

[Dimaska931]

Сообщение от Sciv

i:=1;
While i<= n do begin
  p:=1;
  j:=1;
  while j<=2*i do begin
    p:=p*j;
    inc(j);
  end;
  s:=s+p;
  inc(i);
end;

Так неправильно считать начинает, при n=3, s должно быть равно 386

[Serge_Bliznykov]

j нужно начинать с i:

    p:=1;
    j:= i;
    while j<=2*i do begin

полностью код:

var s, p : longint;
  i,j, n : integer;
begin
  Readln(n);
  i:=1;
  s:=0;
  While i<= n do begin
    p:=1;
    j:=i;
    while j<=2*i do begin
      p:=p*j;
      inc(j);
    end;
    s:=s+p;
    inc(i);
  end;
  WriteLn(' s = ',s);
  Readln
end.

функция факториала (и близкие ей по духу) растут слишком быстро, чтобы для этого хватило целочисленных типов данных.
поэтому либо довольтствуйтесь тем, что n у Вас может быть не более 7 (при n=7 s = 125230946),
либо делайте s и p переменными вещественного типа (var s, p : extended )

[Dimaska931]

спасибо большое всем, все работает!)

[Sciv]

j нужно начинать с i:

Угу, скосячил я