Предмет: Информатика,
автор: CotCot
Написать програму для обчислення добутків виду (х-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.
Приложения:

Похожие вопросы
Предмет: Қазақ тiлi,
автор: maxsudovichnurlan
Предмет: Алгебра,
автор: trylala46
Предмет: Математика,
автор: maksim2010averkin
Предмет: Математика,
автор: artem838
Предмет: Алгебра,
автор: Карина2020