Предмет: Информатика,
автор: 1709усян6039
. Составьте программу для вычисления числа n: n = 1∙2∙3∙…∙х. Число Х вводится с клавиатуры.
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Математика,
автор: robertmuza84
Предмет: Физика,
автор: Fetinka
Предмет: Биология,
автор: namal82919191
Предмет: Алгебра,
автор: алгебра22222
Предмет: География,
автор: А00А