Question

С клавиатуры вводится натуральное число N. Программа должна найти
факториал этого числа (обозначается как N!) – произведение всех
натуральных чисел от 1 до N. Например,
5! = 1 • 2 • 3 • 4 • 5 = 120. НА паскале

Answer 1

Відповідь:

Пояснення:

program Factorial;

var

 N, Fact: integer;

 i: integer;

begin

 writeln('Введите натуральное число N: ');

 readln(N);

 Fact := 1;

 for i := 1 to N do

 begin

   Fact := Fact * i;

 end;

 writeln(N, '! = ', Fact);

 readln;

end.