Çözüldü Doğal Sayılar - Faktöriyel - Programlama

a·b = c! eşitliğini sağlayan kaç tane üç basamaklı abc sayısı yazılabilir?

c = 0 ⇒ 0! = 1 = 1·1, abc = 110
c = 1 ⇒ 1! = 1 = 1·1, abc = 111
c = 2 ⇒ 2! = 2 = 1·2, 2·1, abc = 122, 212
c = 3 ⇒ 3! = 6 = 1·6, 6·1, 2·3, 3·2, abc = 163, 613, 233, 323
c = 4 ⇒ 4! = 24 = 3·8, 8·3, 4·6, 6·4, abc = 384, 834, 464, 644
s(abc) = 12
---
Bilgisayar programlamayla ilgilenen öğrenciler için Fortran uygulaması ve üzerinde çalışılabilir kaynak kodu:

https://i72.servimg.com/u/f72/19/97/10/39/faktor10.gif

Kod:

program fact
integer ::i,toplam=0
integer, external :: ifact

do i=100,999
   if ((i/100)*mod(i/10,10)==ifact(mod(i,10))) then
      toplam=toplam+1
      print*,toplam,i
   endif
enddo

write(6,10) toplam,' adet sayi yazilabilir.'
10 format (i2,a)

end program

integer function ifact(n)
integer n,k

ifact=1

do k=2,n
   ifact=ifact*k
enddo

end function