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

Напишите программки вычисления творений (x-1)*(x-2)*(x-3)...(x-n).Помогите поправить ошибку,разговаривают в строке где решение но я не усвою почему.

Задать свой вопрос
Валентина Шкваркова
Просто шедевр! Правда, отношение к вычислению данного произведения он имеет только отдаленное.
1 ответ

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт