Используя оператор цикла с параметром, вычислить значения выражений при заданном n.

[Radius100]

Помогите решить пожалуйста
(1-1*2) * (1-1*2+1*2*3) * (1-1*2+1*2*3-1*2*3*4)... (n сомножителей)

[ViktorR]

Думаю, что можно, примерно, так:
1. Трем переменным присвоить начальное значение по единице;
2. В цикле (начинается с двойки):
а) первой переменной присвоим произведение этой переменной на параметр цикла, но со знаком минус (это позволит чередовать знак);
б) второй переменной присвоим сумму второй переменной с первой;
в) Третьей переменной присвоим произведение этой переменной на вторую переменную.


Как-то так ...

[Inv1s]

Отдельно в переменных хранить факториал произведения.
И отдельно разность прошлой скобки.
Это Облегчит программу. Дальше сам додумывай

[Radius100]

Спасибо вам большое сейчас попробую.

[rubius2008]

f:=1; z:=1; p:=1; s:=1;
for i:=2 to n do begin
  f:=f*i; z:=-z; s:=s+z*f;
  p:=p*s;
end;
writeln(p);

[Radius100]

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

f:=1; z:=1; p:=1; s:=1;
for i:=2 to n do begin
  f:=f*i; z:=-z; s:=s+z*f;
  p:=p*s;
end;
writeln(p);

Проверь пожалуйста он так и должен работать не ?
Или я что то тут накосячил?

program aa;
var f,z,p,s,i,n:integer;
begin
f:=1;
z:=1;
p:=1;
s:=1;
for i:=2 to n do begin
f:=f*i; z:=-z; s:=s+z*f;
p:=p*s;
end;
writeln(p);
end.

[rubius2008]

Забыл ввести n, например так

readln(n);

[ViktorR]

Ну да. Как-то так.
Вот только тип переменных лучше выбрать другой, не integer.
так, что-бы в них можно было хранить число побольше.
Иначе диапазон решений задачи будет мал - результат будет "захлёбываться" уже при небольших n. Переполнение -

f:=-f*i;
s:=s+f;
p:=p*s;

Или как то так ...