Question

Помогите пожалуйста...

Answer 1

Есть три явные ошибки: 1) начальное f:=0, а должно быть f:=1, иначе при умножении на ноль всегда будет ноль. 2) в условии цикла k

Answer 2

5) нет описания переменных, нет ввода n, нет вывода f

Answer 3

И еще.... я бы вместо цикла while использовала цикл for, но это не обязательно

Answer 4

Ниже правильный текст программы:

Answer 5

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

Answer 6

Понятно, спасибо :3