Question

Помогите пожалуйста решить через Паскаль s=1*2*3...*n

Answer 1

var n,i: integer;

s: real;

begin

s:=1;

readln(n);

for i:=2 to n do s:=s*i;

write(s);

end.

Answer 2

Конечно, чтобы решить данную задачу через Паскаль, можно использовать рекурсивную функцию или цикл. Воспользуемся циклом, так как это более простой подход. Ниже представлен код на языке Паскаль для вычисления значения $s = 1 \times 2 \times 3 \times \ldots \times n$:

pascalCopy code
function CalculateFactorial(n: Integer): Integer;
var
  i, s: Integer;
begin
  s := 1;
  for i := 1 to n do
    s := s * i;
  Result := s;
end;

Это функция CalculateFactorial, которая принимает целочисленный аргумент n и возвращает результат произведения всех чисел от 1 до n.

Пример использования функции:

pascalCopy code
var
  n, result: Integer;
begin
  Write('Введите значение n: ');
  ReadLn(n);
  
  result := CalculateFactorial(n);
  WriteLn('Результат: ', result);
end.

Вызывая эту программу, она запросит у пользователя ввод значения n и затем вычислит и выведет результат произведения чисел от 1 до n.