I need your help.total noob. plz help

For example you enter number 30 and you need to find the closest smaller factorial to number 30 which is 24

var
Counter,x, Factorial: integer;
begin
readln (x);
Counter:=0;
Factorial := 1;
while Factorial < x do
repeat
Counter:=Counter+1;
Factorial := Factorial * Counter;
Dec(Counter);
until Counter = 0;
WriteLn(Factorial);
readln;
end.
this what I was triing but nothing works
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories