Question

Написать программу в паскале что вычисляет произведение первую десятку натуральных числел

Answer 1

Uses crt;
var
p:integer;
begin
p:=1;
for var i:=1 to 10 do
p:=p*i;
writeln('Произведение первых 10 натуральных чисел= ',p);
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая вычисляет произведение первых десяти натуральных чисел:

pascalCopy code
program CalculateProduct;

var
  product: Integer;
  i: Integer;

begin
  product := 1;

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

  writeln('Product of the first ten natural numbers: ', product);
end.

Эта программа использует переменную product для хранения результата произведения. Затем она выполняет цикл for, в котором переменная i принимает значения от 1 до 10. На каждой итерации цикла значение i умножается на текущее значение product, и результат сохраняется обратно в product.

После выполнения цикла программа выводит результат, используя процедуру writeln.

Программа выведет следующий результат:

sqlCopy code
Product of the first ten natural numbers: 3628800

Обратите внимание, что вычисленное произведение первых десяти натуральных чисел равно 3 628 800.