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
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
