I need your help.total noob. plz help - Programmers Heaven

Howdy, Stranger!

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

Categories

I need your help.total noob. plz help

m1kzm1kz Posts: 2Member
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.