Даны действительные числа 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

Вопросы не конкретные потому и ответы будут соответствующими 1) админ сети 2) много, это целая наука. основное это разделить тех кому давать доступ к информации, а кому нет 3)требования к пользователям - отвечать за последствия своих действий. часто это требование не соблюдается 4) разграничивать доступ 5) законы связанные с этим делом 6) какой страны? обычно все акты касающиеся айти основаны на стандартах iso 7) разграничение доступа. а конкретно в зависимости от информации и где она хранится и как используется 8) - 9) использование чужих данных в корысных целях

1. высказывание - предложение, выражающее суждение. высказывание должно быть повествовательным предложением. 2. дизъюнкция - логическое сложение, логическое или, включающее или. строгая дизъюнкция образует сложное высказывание, истинное только в том случае, когда истинен лишь один из его членов. 3. конъюнкция - логическая операция, по применению максимально приближенная к союзу "и". конъюнкция истинна только в в одном случае- когда оба исходных высказывания истинны. 8. импликация - бинарная логическая связка, по своему применению приближенная к союзам "если.. то.." 9. логическое выражение - устное утверждение или запись, в которое, наряду с постоянными величинами, обязательно входят переменные величины (объекты). все, что я нашла