27 lines
680 B
VB.net
27 lines
680 B
VB.net
|
Module Module1
|
||
|
|
|
||
|
|
Function Right6Digits(num As Long) As Long
|
||
|
|
Dim asString = num.ToString()
|
||
|
|
If asString.Length < 6 Then
|
||
|
|
Return num
|
||
|
|
End If
|
||
|
|
|
||
|
|
Dim last6 = asString.Substring(asString.Length - 6)
|
||
|
|
Return Long.Parse(last6)
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Sub Main()
|
||
|
|
Dim bnSq = 0 'the base number squared
|
||
|
|
Dim bn = 0 'the number to be squared
|
||
|
|
|
||
|
|
Do
|
||
|
|
bn = bn + 1
|
||
|
|
bnSq = bn * bn
|
||
|
|
Loop While Right6Digits(bnSq) <> 269696
|
||
|
|
|
||
|
|
Console.WriteLine("The smallest integer whose square ends in 269,696 is {0}", bn)
|
||
|
|
Console.WriteLine("The square is {0}", bnSq)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
End Module
|