Question

Составить цикличный алгоритм вычисления произведения 10 чисел.

Answer 1

Ответ:

(поставь как "лучший ответ", спасибо!)

Var i,p:integer;

begin

p:=1;

for i:=1 to 10 do p:=p*i;

writeln(p);

end.