Перевести из turbo pascal в visual basic var a: real; begin write('введите a> =1: '); readln(a); if a< 1 then writeln('ошибка: а< 1') else begin if 1/a> sin(a) then writeln('1/a больше, чем sin(a)'); if 1/a end; readln; end.

198

338

Посмотреть ответы 2

Ответы на вопрос:

milenavoskanya

Информатика

4,5(18 оценок)

Dim a as double a = inputbox("введите a> =1: ") if a < 1 then msgbox ("ошибка: à< 1") else if (1 / a) > sin(a) then msgbox ("1/a больше, чем sin(a)") end if

Ови11

Информатика

4,7(21 оценок)

Объяснение:

Так как первые три байта маски одинаковы, смотрим на четвертый.

Видим, что первые два бита могут быть еденицами так как 0*1=0 (бит узла * бит маски=бит сети) и 0*1=0, остальные однозначно нули. Значит наибольшее для этого байта маски равно . В предыдущих байтах однозначно может быть только по 8 едениц так как мы ищем наибольшую маску и в последнем байте маски у нас имеются еденицы. Значи 3*8+2=26 - наибольшее возможное колличество едениц маски.