Предмет: Информатика,
автор: 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.
Приложения:
Интересные вопросы
Предмет: Другие предметы,
автор: Аноним
Предмет: Математика,
автор: albinakanieva751
Предмет: Русский язык,
автор: kamilabazarova53
Предмет: Литература,
автор: Джуська