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

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

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

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

var

i,n,x:integer;

p:longint;

begin

write (X = );readln(x);

repeat

write (N = );readln(n); 

until (n>0);

p:=1; 

for i:=1 to n do p:=p*(x-i);

writeln (Proizvedenie: ,p);

readln;

end.