8класс
Страницы 191-195 параграф 4 4 вопрос / задание 3, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение
Страницы 191-195 §4.4 номер 3

Смотрите ещё задания из учебника:
Страницы 177-181 §4.4 номер 14
Страницы 177-181 §4.4 номер 15
Страницы 177-181 §4.4 номер 16
Страницы 177-181 §4.4 номер 17
Страницы 191-195 §4.4 номер 1
Страницы 191-195 §4.4 номер 5
Страницы 191-195 §4.4 номер 6
Страницы 191-195 §4.4 номер 7
Страницы 191-195 §4.4 номер 8
Страницы 191-195 §4.4 номер 9
... смотреть все номера
Первая ошибка: f:=0. Умножение на 0 всегда будет 0!
Вторая ошибка: k<n. По этому условию не будет умножения на последнюю цифру факториала.
program Z_3_5;
var
k, n: integer;
f: longint;
begin
write('Введите n >> ');
readln(n);
k := 1; f := 1;
while k <= n do
begin
f := f * k;
k := k + 1
end;
writeln(n, '!=', f)
end.