x=28
bolen=rep(x,0)
for (i in 1:(x/2)) {
kalan=x %% i
if (kalan==0){
bolen[say]=i
say=say+1
}
}
toplam=sum(bolen)
if (toplam==x){
print("mükemmel sayi")
} else {
print("normal sayi") }
-----------------------------
x=17
bolen=rep(0,x)
say=1
for (i in 1:(x/2)) {
kalan=x %% i
if (kalan==0){
bolen[say]=i
say=say+1
}
}
bolen[say]=x
toplam=sum(bolen)
if (toplam==(x+1)) {
print("asal sayi")
}
|