Question

Написать программу, которая вычисляет произведение целых чисел от 1 до n. Число n запрашивается с клавиатуры. Pascal ABC

Answer 1

Var
  i,n:integer;
  s:real;
begin
  Write('n= ');
  Readln(n);
  s:=1;
  for i:=1 to n do s:=s*i;
  Writeln('Произведение ',s);
end.

Answer 2

Для вычисления произведения целых чисел от 1 до n в Pascal ABC можно воспользоваться следующим кодом:

pascalCopy code
program ProductCalculation;

var
  n, product: integer;
  i: integer;

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

  product := 1;

  for i := 1 to n do
  begin
    product := product * i;
  end;

  writeln('Произведение целых чисел от 1 до ', n, ' равно ', product);
end.

Сохраните данный код в файл с расширением .pas, например, "product_calculation.pas". Затем запустите компилятор Pascal ABC, загрузите файл и выполните программу. После этого введите число n, и программа вычислит произведение целых чисел от 1 до n.