[Помогите!] помогите)

[sdased]

Надо короче вычислить р= 1*2+2*3*4+3×4×5×6+...+N*(n+1)*...*2n
(паскаль)
Тема создана по просьбе пользователя ~Керя~

[~Керя~]

Спасибо что создал, выручил) А то NetPolice замучал)
Может кто не понял, объясню чуть подробнее:
Мы вводим число N. (пока на выше задание не смотрим)
Нам нужно, чтобы программа выдала ответ 2*3*4 (Т.е. умножаем на столько чисел следующих, сколько мы ввели число)
Вводим 3 выдает ответ от 3*4*5*6, вводим 4 - 4*5*6*7*8 и т.д.
Вот именно с вот этой частью, я не могу справится)
А полная задача должна считать так:
Вводим число 3, то программа считает 1*2+2*3*4+3*4*5*6 и выдает P
Если вводим 2, то считает 1*2+2*3*4
Вводим 4 считает 1*2+2*3*4+3*4*5*6+4*5*6*7*8

[metraz]

Цитата: Сообщение от ~Керя~ Спасибо что создал, выручил) А то NetPolice замучал) Может кто не понял, объясню чуть подробнее: Мы вводим число N. (пока на выше задание не смотрим) Нам нужно, чтобы программа выдала ответ 2*3*4 (Т.е. умножаем на столько чисел следующих, сколько мы ввели число) Вводим 3 выдает ответ от 3*4*5*6, вводим 4 - 4*5*6*7*8 и т.д. Вот именно с вот этой частью, я не могу справится)

var
i,a:byte;
begin
i:=strtoint(edit1.text);
for (a=i+1) to (2*i) do begin
i:= i * a;
end;

вроде так, оч спешил, мб где-то маленько накосячил

[mad_cat]

var i,j,n:integer;
s,p:real;
begin
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.

[~Керя~]

Цитата: Сообщение от mad_cat var i,j,n:integer; s,p:real; begin 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.

Не верный ответ выдает.

[metraz]

Цитата: Сообщение от ~Керя~ Не верный ответ выдает.

Мой кусок должен быть рабочим.

[~Керя~]

Цитата: Сообщение от metraz Мой кусок должен быть рабочим.

Паскаль не принимает "strtoint"...

[metraz]

Цитата: Сообщение от ~Керя~ Паскаль не принимает "strtoint"...

val в паскале

[mad_cat]

Цитата: Не верный ответ выдает.

с чего бы это?
ввел 2
выдало 26
проверим
1*2+2*3*4=2+24=26
ввел 3
выдало 386
проверим
1*2+2*3*4+ 3*4*5*6= 2+24+360=386
ввел 4
выдало 7106
386+4*5*6*7*8=386+6720=7106
Дальше не проверяем ибо видно что все работает верно

[~Керя~]

Цитата: Сообщение от mad_cat с чего бы это? ввел 2 выдало 26 проверим 1*2+2*3*4=2+24=26 ввел 3 выдало 386 проверим 1*2+2*3*4+ 3*4*5*6= 2+24+360=386 ввел 4 выдало 7106 386+4*5*6*7*8=386+6720=7106 Дальше не проверяем ибо видно что все работает верно

Виноват, ты сразу учел все) Всё, огромное спасибо.