Question

:* створення програми для розвязання прикладних програм, використовуючи цикли. №1 написать програму для обчислення добутків виду (х-1)(х-2)(х--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.