Среди чисел 1…n найти все такие, запись которых совпадает с последними цифрами их квадрата - VB
Формулировка задачи:
Дано натуральное число n. Среди чисел 1…n найти все такие, запись которых совпадает с последними цифрами их квадрата
Решение задачи: «Среди чисел 1…n найти все такие, запись которых совпадает с последними цифрами их квадрата»
textual
Листинг программы
Private Sub Command1_Click()
Dim s As String, i As Long, n As Long, t As String, z As String
s = ""
n = CInt(InputBox("Ââåäèòå n"))
For i = 0 To n
t = CStr(i)
z = CStr(i ^ 2)
If t = Right(z, Len(t)) Then
s = s + t + "~" + z + vbTab
End If
Next
MsgBox CStr(s)
End Sub