Напишите программы вычисления произведений (x-1)*(x-2)*(x-3)...(x-n).Помогите исправить ошибку,говорят в строке где решение но я не пойму почему.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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