Напишите программы вычисления произведения (х-1)(х-2)(х-3)....(х-n)
Напишите программы вычисления произведения (х-1)(х-2)(х-3)....(х-n)
Гость
Ответ(ы) на вопрос:
ГостьНапример так:
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
Не нашли ответ?
Похожие вопросы