1.Составить программу, которая переводит биты в кбайты.

Это было решение к другой задаче. Для перевода битов в байты надо: var x:integer; y:real; begin write ('x= '); readln (x); y:=(x/8/1024); write('y= ', y:6:2); end.

var x:integer;y:real;beginwrite ('x= ');readln (x);y:=(2*x-4)/2;write('y= ', y:6:2);end.