Написать програму для обчислення добутків виду (х-1)(х-2)(х-3)...(х-n)
(P.S скласти програму и блок схему)
Ответы
Ответ дал:
0
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.
Приложения:
![](https://st.uroker.com/files/025/02550381f8b0322995a87f600fb6dd1d.png)
Вас заинтересует
1 год назад
1 год назад
7 лет назад
9 лет назад