Sub Kökler()
[A1] = "Sayılar"
[B1] = "Karekök"
[C1] = "Küpkök"
[D1] = "4. Kök"
For i = 2 To 15
Cells(i, 2) = Cells(i, 1) ^ (1 / 2)
Cells(i, 3) = Cells(i, 1) ^ (1 / 3)
Cells(i, 4) = Cells(i, 1) ^ (1 / 4)
Next
End Sub
' Diğer kökler için ===> Sayı^(1/n)