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

11fcd0c67a196f909cbef8dfa958373a.pas