Напишите программу вычисления произведений.(Turbo Pascal)(x-1)(x-2)(x-3)...(x-n);

Question

Напишите программу вычисления произведений.(Turbo Pascal)(x-1)(x-2)(x-3)...(x-n);

Answer 1

var x,n:integer;

begin

readln(n);

readln(x);

for i=:1 to n do

x:= (x-i);

end.

Если решение задачи будет не верно, извените значит надо писать более подробно.

Comments

Ошибка не end; а end.

---

ок

---

var x,n:integer;beginreadln(n); for i=:1 to n do x:= (x-n); end;

---

var x,n:integer;beginreadln(n);readln(x); for i=:1 to n do x:= (x-n);end.

---

Последнее это верное решение ((

---

а что за ?

---

Решение в ответах и объяснениях исправил.

---

так у тебя всеравно так br

---

Ну я всмсле из коменнов занёс в главный ответ.

---

ааа