Silnia z liczby którą podałeś ma ponad 65 000 liczb w zapisie dziesiętnym, tak swoją drogą. Kod ma ponad 200 linijek, więc pozwólcie, że wrzucę wyłącznie linka: http://ideone.com/R33iLe Also, jakby ktoś się zastanawiał dlaczego tak szybko udzieliłem odpowiedzi: user wcześniej poprosił mnie o napisane takiego programiku, a że teraz i dodał zadanie, to i ja dodam tę odpowiedź ;)
Disclaimer: do poprawnej kompilacji programu wymagany jest FPC przynajmniej 2.6.0 z włączonymi c-style-operators (ważne!). Można również pozamieniać konstrukcje typu: `Shift += Mul div 10;` na `Shift := Shift + (Mul div 10);` I skompiluje się pod praktycznie każdym kompilatorem, lecz z powodu czytelności skorzystałem z tego feature z FPC :>
Silnia z liczby którą podałeś ma ponad 65 000 liczb w zapisie dziesiętnym, tak swoją drogą.
Kod ma ponad 200 linijek, więc pozwólcie, że wrzucę wyłącznie linka: http://ideone.com/R33iLe
Also, jakby ktoś się zastanawiał dlaczego tak szybko udzieliłem odpowiedzi: user wcześniej poprosił mnie o napisane takiego programiku, a że teraz i dodał zadanie, to i ja dodam tę odpowiedź ;)
Disclaimer: do poprawnej kompilacji programu wymagany jest FPC przynajmniej 2.6.0 z włączonymi c-style-operators (ważne!). Można również pozamieniać konstrukcje typu:
`Shift += Mul div 10;`
na
`Shift := Shift + (Mul div 10);`
I skompiluje się pod praktycznie każdym kompilatorem, lecz z powodu czytelności skorzystałem z tego feature z FPC :>