Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

С клавиатуры вводиться натуральное число м < 27 найдите и выведите на экран все трехзначные числа натуральные числа , сумма цифр которых равна м

Ответ оставил Гость

Sub sss()
stroka = 3
m = Cells(2, 3)
For i = 100 To 999
a1 = Int(i / 100)
a2 = Int((i - a1 * 100) / 10)
a3 = i - a1 * 100 - a2 * 10
If a1 + a2 + a3 = m Then
Cells(stroka, 3) = i
stroka = stroka + 1
End If
Next i
End Sub