Question

помогите найдите ошибку

Answer 1

Ответ:

var n,k,f:integer;

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.

Объяснение:

Сравните 2 программы. Там, где эти программы отличаются - там и ошибки