Вычисление факториала

@davitalik · Регистрация: 26.02.2015

Данная программа написана для вычисления факториала числа n. По определению факториал n равен 1*2*…*(n–1)*n.

Pascal

var n, f, k: integer;
begin
readln(n); f:=1; k:= 0;
while k<>n do
begin f:=k*f; k:=k+1; end;
writeln(f)
end.

Какое число f будет вычислено, если n=5?

@Puporev · 20.03.2016, 19:47

Будет 0, поскольку на первой итерации f:=0*1=0

Добавлено через 1 минуту
Правильно

Pascal

while k<>n do
begin
 k:=k+1;
 f:=k*f;
end;

тогда будет 120.

Опции темы