Klavyeden m ve n tamsayıları girildiğinde, m ve n arasında kalan tam sayılar
içerisinden basamaklarının küplerinin toplamı kendisine esit olan sayıları ekrana yazdıran
programı yazınız.
ARKADAŞLAR BEN KENDİM YAPTIM FAKAT 3 BASAMAKLILARI SAGLIYOR EN FAZLA BUNUN GENELLEŞTİRİLMESİ GEREKİYOR YARDIMCI OLABİLECEK OLAN VAR MI?
program ornek
implicit none
integer::m,n,i,x,y,z,t
print*, "m n araligi giriniz"
read*,m
read*,n
do i=m,n
x=mod(i,10)
y=i/10
z=mod(y,10)
t=i/100
if (x**3+z**3+t**3==i) then
print*,i
else
end if
end do
end program
|
Del.icio.us
Digg
Facebook
Furl
Google
Blink
Simpy
Spurl
Y! MyWeb