ПОМОГИТЕ :* Створення програми для розвязання прикладних програм, використовуючи цикли. ...

Question

ПОМОГИТЕ :*

Створення програми для розвязання прикладних програм, використовуючи цикли.

Задача №1

Написать програму для обчислення добутків виду (х-1)(х-2)(х-3)...(х-n)

(P.S скласти програму и блок схему)

Answer 1

Program CotCot;
uses crt;
var
  x,t:real;
  n,i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа обчислення добутків виду (х-1)(х-2)(х-3)...(х-n) ');
  writeln();
  write('Введіть n '); readln(n);
  write('Введіть x '); readln(x);
  t:=1;
  writeln();
  for i:=1 to n do
    begin
      t:=t*(x-i);
    end;
  writeln('Результат для х=',x,' та n=',n,' становить ',t);
end.

---