Файл, размером 4 кбайта передаётся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла(в байтах), который можно передать за то же время через другое соединение со скоростью 512 бит в секунду. в ответе укажите одно число-размер файла в байтах.

4киб =  32768 бит 32768 бит / 2048 бит/сек = 16 секунд 512 бит/сек * 16 сек =  8192 бит =  1024 байт = 1 киб можно проще:   решаем и получаем 1: )

Var   x,a,b,c,max,min,mid: real; begin   readln(x);   a: =sin(x);   b: =cos(x);   if a> 0 then   begin     c: =ln(x);     if (a> b) and (a> c) then  max: =a else     if (b> a) and (b> c) then max: =b else  max: =c;     if (a< b) and (a< c) then min: =a else     if (b< a) and (b< c) then min: =b else min: =c;     if (a> min) and (a< max) then mid: =a else     if (b> min) and (b< max) then mid: =b else mid: =c;     writeln(min,' ',mid,' ',max);   end   else   if a> b then writeln(b,' ',a) else writeln(a,' ',b); end.

Код pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22   var a : array [ 1.. 10 ] of integer; i ,p ,o ,n : byte; begin for i : = 1 to 10 do begin write ( 'введите ' ,i , ' число: ' ); readln (a [i ] ); end; for i : = 1 to 10 do begin if (a [i ] > 0 ) then inc (p ) else if (a [i ] < 0 ) then inc (o ) else inc (n ); end; writeln ( 'количество положительных элементов = ' ,p ); writeln ( 'количество отрицательных элементов = ' ,o ); writeln ( 'количество нулевых элементов = ' ,n ); end.