напишите в бейсике программу

Question

Vba вычислить f=(m1+m2)/(m2-m1)+50.6 если. m1- максимальное из чисел кратных 14 в диапазоне от 15 до 167 . m2- максимальное из чисел кратных 3 в диапазоне от -121 до -265

Евгений · Accepted Answer

function f(m1,m2) 
 f=(m1+m2)/(m2-m1)+50.6 
end function 
 
sub ppp() 
for xx = 167 to 15 
if xx mod 14 = 0 then 
exit for 
next xx 
for yy = 121 to 265 
if yy mod 3 = 0 then 
exit for 
next yy 
yy = -yy 
zz = f(xx,yy) 
msgbox(zz) 
end sub