Среди чисел 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.286 из 5
Похожие ответы