16. Составьте программу для вычисления числа n: n = 1∙2∙3∙ ...∙х. Число Х вводится с клавиатуры.

Question

Информатика

Света

11 января, 13:28

16. Составьте программу для вычисления числа n: n = 1∙2∙3∙ ...∙х. Число Х вводится с клавиатуры.

+3

Ответы (1)

Знаете ответ?

Вадимыч · Answer 1

function factorial (n : integer) : BigInteger;

var

i : integer;

f : BigInteger;

begin

f : = 1;

for i : = 2 to n do

f : = f * i;

factorial : = f

end;

var

x:integer;

begin

write ('X: ') ;

readln (x) ;

writeln (factorial (x)) ;

end.