Анкета Алины Неймаровой вся информация

Люблю футбол Очень обчительная )

dim n, k n=InputBox("n =") n=CInt(n) k=CInt(k) k=0 While n>=1 n=n/10 k=k+1 Wend MsgBox "k="&k

MsgBox "вас приветствует программа, которая определяет, принадлежит ли точка N(x, y, z) шару с центром в точке Z(a, b, c) и радиусом r." dim x, y, z, a, b, c, r, result x = InputBox("координата точки x = ", _ "Win1") y = InputBox("координата точки y = ", _ "Win2") z = InputBox("координата точки z = ", _ "Win3") a = InputBox("координата точки a = ", _ "Win4") b = InputBox("координата точки b = ", _ "Win5") c = InputBox("координата точки c = ", _ "Win6") r = InputBox("радиус r = ", _ "Win") x=CInt(x) y=CInt(y) z=CInt(z) a=CInt(a) b=CInt(b) c=CInt(c) r=CInt(r) result=CInt(result) if r <= 0 then msgbox "Принимаю только положительный радиус" else result = ((x-a)^2)+((y-b)^2)+((z-c)^2) 'msgbox result if result <= r^2 then msgbox "точка принадлежит шару" else msgbox "точка не принадлежит шару" end if end if

option explicit dim x, y, n, m msgbox "Эта программа вычисляет значение n! " n=Inputbox("значение n") y=Inputbox("значение y") for n=1 to 7 m=(y*n) y=m next msgbox "n! равен "&y

Я спать