1)определить тип результата следующих выражений а)i*i+j*j+2*k/2 б)x в)sin(x)+2*cos(y)+z г)i+sqrt(j) если известно что i,j,k: integer; x,y,z: real

private sub commandbutton1_click()

dim s as integer, z as integer

dim t as string

t = "для оплате в кассе необходимы: "

s = cint(inputbox("введите сумму оплаты"))

do while s > 0

if s > = 500 then

s = s - 500: k = k + 1

elseif s > = 200 then

s = s - 200: m = m + 1

elseif s > = 100 then

s = s - 100: n = n + 1

elseif s > = 50 then

s = s - 50: z = z + 1

elseif s > = 10 then

s = s - 10: v = v + 1

elseif s > = 5 then

s = s - 5: h = h + 1

elseif s > = 2 then

s = s - 2: f = f + 1

elseif s > = 1 then

s = s - 1: d = d + 1

end if

loop

if k > 0 then

t = t + " " & k & " по 500 рублей, "

t = t + " " & m & " по 200 рублей, "

t = t + " " & n & " по 100 рублей, "

t = t + " " & z & " по 50 рублей, "

t = t + " " & v & " по 10 рублей, "

t = t + " " & h & " по 5 рублей, "

t = t + " " & f & " по 2 рублей, "

t = t + " " & d & " по 1 рублей, "

cells(10, 1) = t

end if

end sub