Страницы 157-164 §3.5 номер 3, ГДЗ по информатике за 8 класс к учебнику Босовой

Если, f := 0, то результат всегда будет 0!

Если не сделать операторных скобок begin… end, то после входа в цикл будет выполнятся только один шаг –  f := f * k;

Если в условии не поставить k <= n, то результат (при всех исправленных до этого ошибках) будет факториалом числа n-1.

Исправленная программа.

program z3;

var

 f, k, n: integer;

begin

  k := 1;

  f := 1;

  writeln('Введите n > ');

  readln(n);

  while k <= n do

  begin

    f := f * k;

    k := k + 1

  end;

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

end.