Напишите программы вычисления произведений (x-1)*(x-2)*(x-3)...(x-n).Помогите исправить ошибку,говорят в строке где решение но я не пойму почему.
Просто шедевр! Правда, отношение к вычислению заданного произведения он имеет лишь отдаленное.
var x,p: real; n,i:integer;
begin
readln(x,n);
p:=1;
for i:=1 to n do p:=p*(x-i);
writeln('P = ',p:8:5);
end.
Пример:
2.5 5
P = -1.40625