Сколько секунд понадобится модему, сообщения со скоростью 28800 бит/с, для передачи 50 страниц текста в 30 строк по 60 символов каждая в кодировке unicode.

1. найдем объем сообщения. 30*60*16*50=1440000  2. найдем время передачи сообщения модемом. 1440000/28800=50 ответ: 50 секунд.       

Первые две, так как третяя не понятная, вторая может быть не верно понята sub num2()       s = 0       dim a       k = cint(inputbox("k ="))       n = cint(inputbox("n ="))       redim a(n - 1)       for i = 0 to n - 1               a(i) = cint(inputbox("a(" & i & ") ="))               if a(i) mod k = 0 then s = s + a(i)       next       msgbox s end sub sub num1()       i = 0       e = cdbl(inputbox("e ="))       do while i < = e               i = i + sqr(2)       loop       msgbox "i = " & i end sub

Var       a: integer;       s: longint; begin       s : = 0;       readln(a);             while a < > 0 do       begin               if (a mod 2 = 0) and (a > 5) then                       s : = s + a;               readln(a);       end;             writeln(s); end.