Question

Вычислить произведение n-сомножителей P=1*2*3.......*10=10!

Answer 1

Var i,p,n:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
p*=i;
writeln(p);
end.

Answer 2

Для вычисления произведения n-сомножителей p = 1 * 2 * 3 * ... * n мы можем использовать цикл.

В данном случае, нам нужно вычислить произведение чисел от 1 до 10, то есть 1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10.

Мы можем использовать цикл for или while для пошагового умножения чисел. Давайте использовать цикл for:

p = 1 # Изначально произведение равно 1

for i in range(1, 11): # Цикл будет выполняться для чисел от 1 до 10 (11 не включительно) p *= i # Умножаем p на текущее число i

print(p) # Выводим результат

Вывод программы будет равен 3628800, что соответствует произведению 1 * 2 * 3 * ... * 10.