top
Loading...
求最大公約數和最小公倍數
<div align="center"><font color="#FF0000"><b>求最大公約數和最小公倍數 </b></font><b></b> </div>
<%
cala=Request.form("cala")
if cala="y" then
a=Request.form("mynuma")
b=Request.form("mynumb")
if a<b then
t=a
a=b
b=t
end if
aa=a
bb=b
Do
temp=aa mod bb
aa=bb
bb=temp
Loop while (bb<>0)
Response.Write a & "和" & b & "的整大公約數是:" & aa & ";  它們的最小公倍數是:" & a*b/aa & "<br>"
end if
%>
<form method="post" action="<%=Request.ServerVariables("Script_Name")%>">
兩個整數(求它們的最大公約數和最小公倍數)
<input type="text" name="mynuma">
<input type="text" name="mynumb">
<input type=hidden name=cala value=y>
<input type="submit" name="Submit" value="提交">
</form>

北斗有巢氏 有巢氏北斗