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

Question

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

---

Answer 1

Ответ:

var n,k,f:integer;

begin

write('n='); readln(n);

k:=1;

f:=1;

while k

begin f:=f*k; k:=k+1; end;

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

end.

Объяснение:

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

Comments

спасибо тебе