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

Question

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

Answer 1

Например так:

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

Comments

var

s, a, n, i : longint;

begin

read (a, n);

s := 1;

for i := 0 to n - 1 do

s := s * (a + i);

writeln (s);

end.