Задача в Pascal , пожалуйста помогите. Дано натуральное число N . Найти наибольшее число...

Question

Задача в Pascal , пожалуйста помогите. Дано натуральное число N . Найти наибольшее число , факториал которого не превосходит N

Comments

без оператора While пожалуйста (

---

вернее без uses crt

---

с While)

Answer 1

Var fa,i,n:integer;beginReadln(n);fa:=1;while fa < n do begini:=i + 1;fa:= fa * i;write(fa:4);end;writeln;write(i-1);end.