⇢ МС
Мария Саркисян
помогите! ! программка в vba!!
даны натуральные числа n,n получите все наименьшие n натуральные числа квадрат суммы цифр которых равен m (n- 3-х значное число m-2-х значное число)
очень надо, пожалуйста!!!
ЕГ
Екатерина Горшкова
'раз n трехзначное то
sub ppp()
min_n = 1000000
m = 64 ' или другой какой-нибудь квадрат
for ii1 = 1 to 9
for ii2 = 0 to 9
for ii3 = 0 to 9
if (ii1+ii2+ii3)*(ii1+ii2+ii3) = m then
if ii1*100+ii2*10+ii3 < min_n then
min_n = ii1*100+ii2*10+ii3
endif
endif
next ii3
next ii2
next ii1
if min_n = 1000000 then
msgbox("такого числа нет! ")
else
msgbox("min_n ="+min_n )
endif
end sub
Похожие вопросы