Найти сумму всех n-значных чисел, кратных k (1 меньше = n меньше = 4).VBA
Найти сумму всех n-значных чисел, кратных k (1 <= n <= 4).
VBA
Гость
Ответ(ы) на вопрос:
ГостьSub Zadanie()
n = CInt(InputBox("n ="))
k = CInt(InputBox("k ="))
s = 0
for i = 10^(n - 1) to 10^n - 1
if i mod k = 0 then s = s + i
next
MsgBox s
End Sub
Не нашли ответ?
Похожие вопросы