Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

ПОМОГИТЕ :*

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

Задача №1

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

Ответ оставил Гость

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.