ClrHome Output(8,1,"BY Andrew Thomas a+b? 0?G Input "?(",N If fPart(N Then Output(2,12,"ERROR Disp " Goto Q End If N<0 Then 1?G ?N?N End If not(fPart(?(N Then Disp ?(N-2GN Goto Q End 1?C 2?F While F??(N N/F??Z While not(fPart(Z CF?C Z?N N/F??Z End If F=2 1?F 2+F?F End 1+iPart(log(C?A 1+iPart(log(N?B If C?1 Output(2,16-A-B-G,C If G Output(2,16-B-G,? Output(2,16-B,"?( Output(2,16-B+1,N Disp " Lbl Q Output(3,1," Real
Text automatically extracted from attachment below. Please download attachment to view properly formatted document.
---Extracted text from uploads/archive/algebra/radical_simp.docx---