Mathematical Operators

We are computing the averges of 5 and 16
Their arithmetic mean is 10.5 and ther geometric mean is 8.94427190999916

The Code

<% Dim iTerm1, iTerm2, sngArtimetic, sngGeometric

iTerm1 = 5
iTerm2 = 16
Response.Write("We are compution the averges of ")
Response.Write( iTerm1)
Response.Write(" and ")
Response.Write(iterm2)

%>
<br />
<%
sngArtimetic = iTerm1 + iTerm2
sngArtimetic = sngArtimetic /2
sngGeometric = (iTerm1 * iTerm2)^0.5
Response.Write(" Their arithmetic mean is ")
Response.Write(sngArtimetic)
Response.Write(" and ther geometric mean is ")
Response.Write(sngGeometric)
%>