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



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

Дилюзя в категроии Информатика, вопрос открыт 29.05.2017 в 00:03

1 ответ



Glerya , ответ добавлен 29.05.2017 в 00:26

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.

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.