Помогите написать программу в турбо паскале . 3В

Question

Помогите написать программу в турбо паскале . 3В

---

Comments

Ага. Его бы еще где-то взять)

---

С 1994 года лицензии не выдаются.

---

У кого-то, да найдется :D

---

ну я могу сходить к себе в шк, там есть :D

---

аа

---

ну елси б я в школе был )

---

это предод из техникуму

---

x и n вводятся с клавиатуры?

---

да

Answer 1

var s,x,n,i:integer;

begin

write('Введите x: ');

readln(x);

write('Введите n: ');

readln(n);

s:=1;

for i:=1 to n do

s:=s*(x-i);

writeln('Произведение равна: ',s);

readln;

end.

Comments

там произведение, а не сумма

---

Подправил, чет впарился уже ;w; Спасибо за замечание