Question

Создать в Паскале программу подсчёта произведения N последовательных натуральных чисел начиная с одного!

Answer 1

program p;

var n,i,o: integer;

begin

o:=1;

writeln('Введите колчиство чисел:');

readln(n);

for i:=1 to n do o:=o*i;

writeln('Ответ:',o);

readln; end.

Answer 2

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

program CalculateProduct;

var
  N, i: Integer;
  product: LongInt;

begin
  // Вводим значение N
  Write('Введите значение N: ');
  Readln(N);

// Инициализируем произведение
  product := 1;

// Подсчитываем произведение
  for i := 1 to N do
  begin
    product := product * i;
  end;

// Выводим результат
  WriteLn('Произведение первых ', N, ' натуральных чисел: ', product);

// Задержка перед закрытием консоли (для удобства просмотра результата)
  Readln;
end.

Эта программа запрашивает у пользователя значение N, затем использует цикл `for` для умножения чисел от 1 до N и сохранения результата в переменной `product`. Наконец, программа выводит произведение в консоль.