Question

Составить в Паскале программу вычесления значения функции y=1×2×3×...×N для N=20

Answer 1

program fact20;

const

n=20;

var

i:byte;

f:int64;

begin

f:=1;

writeln('Множитель Произведение');

for i:=1 to n do

begin

f:=f*i;

writeln(i:5,' ',f:20);

end;

write('Итог 》 ',f);

end.

Answer 2

Для вычисления значения функции y = 1 × 2 × 3 × ... × N, где N = 20, можно использовать рекурсивную функцию или цикл. В данном случае, воспользуемся циклом для простоты. Вот программа на языке Паскаль:

pascalCopy code
program Factorial;

var
  N, i: Integer;
  y: LongInt;

begin
  N := 20;
  y := 1;

  for i := 1 to N do
  begin
    y := y * i;
  end;

  writeln('Значение функции y = 1 × 2 × 3 × ... × N для N = ', N, ' равно ', y);
end.

После выполнения программы, она выведет значение функции:

mathematicaCopy code
Значение функции y = 1 × 2 × 3 × ... × N для N = 20 равно 2432902008176640000

Это результат вычисления факториала числа 20.