Question

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

Answer 1

program ex;uses crt;var N, i : integer;
function f(x:integer):integer;var i,n:integer;beginn:=1;for i:=1 to x dobeginn:=n*i;end;f:=n;end;

begin  read(N);  for i:=1 to N do  begin    if f(i) > N then      begin        write(i-1);        break;      end;  end;end.