Даны действительные числа x, y,z. проверить, нет ли среди них одинаковых чисел и выдать соответствующее сообщение. если среди данных чисел нет одинаковых, то большее из x, y,z заменить средним арифметическим двух оставшихся значений.

visual basicвыделить код

option explicit

function min_3(a as variant, b as variant, c as variant) as variant

    min_3 = a

    if a > b then min_3 = b

    if min_3 > c then min_3 = c

end function

private sub form_activate()

dim a as integer, b as integer, c as integer

a = val(inputbox("введите число"))

b = val(inputbox("введите число"))

c = val(inputbox("введите число"))

print "наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & min_3(a, b, c)

end sub

n = 2^i

n = 2^5 = 32

ответ. в классе 32 ученика

михаил - футбол,велоспорт.

николай - теннис, волейбол.

михаил - баскетбол, плавание.

решение: так как михаил не увликаеться  велоспортом, волейболом  и тенисом значет он занимаеться плаванием. тогда получаеться что тенисист - николай и потому как он самый старший то павел будет велосипедистом из этого выходит что волейболистом будет николай.