Решить по информатике.файл размером 4 кбайт передаѐтся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла (в байтах), который можно передать за то же время со скоростью 128 бит в секунду.какова скорость соединения (в бит/с), если файл объѐмом 500 кбайт был передан за 8 секунд.сколько секунд будет передаваться файл размером 375 кбайт через соединение со скоростью 256 000 бит/с? через некоторое соединение со скоростью 4 кбайта в секунду в течение 12 секунд передаѐтся файл. определите время (в секундах) передачи этого же файла через другое соединение со скоростью 256 байт в секунду.

Если смотреть с точки зрения паскаля, то получается такая ересь: var x,z,c,y: real; begin writeln('введите  первое  число'); readln(x); writeln('введите второе число'); readln(z); q: =x-y; (разность первого и последнего  числа); w: =z+c; (сумма второго и третьего числа); в случае если выполняются эти два условия if q > z then if w < y then  begin  writeln(w); writeln(z); end else  if q > z then writeln(z)  else if  w < y then writeln(w); end.

1var x,y: integer; begin   writeln('введите х');   readln(x);   writeln('введите y');   readln(y);   if x< y then writeln('меньшее: ',x) else   if x> y then writeln('меньшее: ',y) else   if x=y then writeln('числа равны') end. 2 var x,y: integer; begin   writeln('введите первое число');   readln(x);   writeln('введите второе число');   readln(y);   if y=0 then writeln('второе число равно 0. деление невозможно! ') else   writeln(x,'/',y,'=',x/y); end. 3 var s,name: string; begin   writeln('введите ваше имя');   readln(name);   writeln('введите строку');   readln(s);   if s=name then writeln('! ') else   writeln('! '); end. 4 var x: integer; begin   writeln('введите число');   readln(x);   if (x mod 2)=0 then writeln('четное') else writeln('нечетное') end. 5 var x: string; i: integer; begin   writeln('введите строку');   readln(x);   writeln('введите номер символа');   readln(i);   if i > length(x) then writeln('нет символа! ') else writeln(x[i]) end. 6 var x,y: integer; begin   writeln('количество яблок: ');   readln(x);   writeln('количество апельсинов: ');   readln(y);   if (x*100)> (y*150) then writeln('берите яблоки')   else   if (x*100)< (y*150) then writeln('берите апельсины')   else   if (x*100)=(y*150) then writeln('вес яблок и апельсинов одинаковый') end.