I need your help.total noob. plz help

Thu, 03 Nov 2011 14:50:26 -0700

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

'I need your help.total noob. plz help' Thread RSS Feed

I need your help.total noob. plz help