Очень нужно, буду благодарен. В зависимости от того, в каких единицах измерения вводится значение, перевести его в другие единицы измерения (байты, килобайты, мегабайты и гигабайты). Язык паскаль

1 байт - 0,001 килобайт, 1 мегабайт - 0,001 гигабайт

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.

смотря какая передача и каких данных, много чего придумать можно, мне кажется) телефон, радио, модем,рация. или просто- передатчик.