Составьте программу, по которой вычисляется f=10! (Факториалом числа N называется произведение всех натуральных чисел от I до N включительно).

Question

Еванфия

2 января, 15:16

+4

Ответы (1)

Знаете ответ на вопрос?

Леонтина · Answer 1

Var n, f, i:integer;

begin

n:=10;

f:=1;

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

writeln (n,'! = ', f) ;

end.

Результат:

10! = 3628800