напишите программы вычисления произведения (х-1)(х-2)(х-3).(х-n)
Ответы:
Например так:
program test,
uses crt,
const
res_integer=1,
var
n,i,x:integer,
begin
clrscr,
write(Inpit n ),readln(n),
write(Input x ),readln(x),
for i:=1 to n do
res:=res*(x-i),
writeln(res),
readln,
end.
P.S. res!=0 if x>,n