Среди чисел 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д