سلام
خوبی؟
VS رو کامپیوترم نصب نبود، اینو همینجوری نوشتم، امیدوارم به دردت بخوره
(متغیرایی که تعریف نکردم خودت تعریفشون کن)
...
s = Sign(x)
x = Abs(x)
sahih = Int(x)
ashar = x - sahih
Do
ashar *= 10
r = ashar - Int(ashar)
Loop Until r = 0
ns = Int(Log(sahih)/Log(10)) + 1...