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

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

Задать свой вопрос
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 xgt;n
Галя Хегоян
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт