Question

Долгожитель (возраст не менее 100 лет) обнаружил однажды,что если к сумме квадратов цифр его возраста прибавить число дня его рождения,то как раз получится его возраст.Сколько лет долгожителю.На VBA с циклом do loop или While wend

Answer 1

Он родился 27 числа и ему 109 лет
1^2=1+0^2=0+9^2=81
1+81+27=109

Answer 2

Для решения этой задачи на VBA с использованием цикла Do Loop или While Wend, вам нужно будет перебирать возможные значения возраста и проверять, выполняется ли условие. Вот пример кода на VBA:

vbaCopy code
Sub FindLongevity()
    Dim age As Integer
    Dim dayOfBirth As Integer
    Dim sumOfSquares As Integer
    Dim found As Boolean
    
    age = 100 ' Начнем с возраста 100 лет
    found = False
    
    Do While Not found
        dayOfBirth = age Mod 100 ' День его рождения (последние две цифры возраста)
        sumOfSquares = (age \ 100) ^ 2 + (dayOfBirth) ^ 2 ' Сумма квадратов цифр возраста и дня рождения
        
        If sumOfSquares = age Then
            found = True
        Else
            age = age + 1
        End If
    Loop
    
    MsgBox "Долгожителю " & age & " лет."
End Sub

Этот код начинает с возраста 100 лет и увеличивает его до тех пор, пока не найдет такой возраст, который удовлетворяет условию задачи. Как только такой возраст найден, он выводится в сообщении с помощью MsgBox.