1) переведите десятичное число 111 в двоичную систему счисления 2) файл размером 8 кбайт передаётся через некоторое соединение за 64 секунды. определите за сколько секунд можно передать этот же файл через соединение скорость которого на 1024 бит в секунду больше. в ответе указать одно число -кол-во секунд

в 1 номере получается 7,   во втором составляем пропорцию 65 536с: 64=66 560: х (65 536 это кол во секунд за которое передается за 1 скорость) получается 65 536х=64*66 560  

х=65сек )) 

program pr; uses crt; var a, b, c,x1,x2,x3: integer; beginwriteln('введите a, b, c'); readln(a, b, c); if (a< =b) and (b< =c) then              begin                          a: =a*a*a;                           b: =b*b*b;                           c: =c*c*c;                           writeln(a);                           writeln(b);                           writeln(c);               end; if (a> b) and (b> c) thenbegina: =a*(-1); b: =b*(-1); c: =c*(-1); writeln(a); writeln(b); writeln(c); end

elseif (a< b) and (a< c) then begin b: =a; c: =a; writeln(a); writeln(b); writeln(c); end; if (b< a) and (b< c) then begin a: =b; c: =b; writeln(a); writeln(b); writeln(c); end; if (c< a) and (c< b) then begin a: =c; b: =c; writeln(a); writeln(b); writeln(c); end; readln; end.

program pr1; uses crt; var mas: array[1..100] of integer; pos: array[1..100] of integer; min: array[1..100] of integer; i,b,c: integer; beginclrscr; b: =0; c: =0; randomize; for i: =1 to 100 do mas[i]: =-100+random(200); for i: =1 to 100 do write(mas[i]); writeln(); for i: =1 to 100 do if mas[i]> =0 then begin b: =b+1; pos[b]: =mas[i]; end else begin c: =c+1; min[c]: =mas[i]; end; writeln('polojitelnye'); for i: =1 to b do write(pos[i]); writeln(); writeln('otricatylnye'); for i: =1 to c do write(min[i]); end.