การเขียนสคริปต์เพื่อหารากที่สองของจำนวนใดๆ

ไม่ยากครับ เพราะ แต่ละภาษามักจะมีฟังก์ชันหรือคลาสสำเร็จรูปให้ใช้อยู่แล้ว
เช่น จะหารากที่สองของ 361 ในExel ก็เขียนว่า  =sqrt(361)  ก็จะแสดงผลออกมาเป็น 19

มีบางจำนวน สามารถถอดรากได้แต่ไม่หมด  เช่น /45  =/3x3x5 =3/5    ("/"  แทนเครื่องหมายกรณฑ์)
  /50  =  /5x5x2  =  5/2
  /48 = /4x4x3  = 4/3

ถ้าได้จำนวนใดๆ มา (ที่ถอดรากได้ไม่หมด)
จะเขียนคำสั่งเพื่อหาจำนวนที่ถอดออกมาได้และจำนวนที่ติดอยู่ข้างใน ได้อย่างไรครับ