1) 1 байт- 8 битов
2) 213 бит - 0,0266 кбайт
3) 1 мбайт - 1 х 10 < -2, 0,001 байт, 0,08 бита.
4) 1,536 кбайт, 1536 байт = 12.288 бит.
Const
cost_1 = 10;
cost_pack = 90;
var
m: integer;
begin
readln(m);
writeln('Блоков: ', m div cost_pack);
writeln('Дисков: ', (m mod cost_pack) div cost_1);
end.
Не получишь. Во-первых, не знаю, законно или нет, но у тебя нет логического выражения в условной конструкции(if).
Во-вторых, опять же, не знаю, если ли в твоем языке функция swap(), которое меняет содержимое, но я бы сделал так:
temp := x[i]; //объяви сначала дополнительную переменную
x[i] = y[i];
y[i] = temp;
Ибо, если судить по твоему коду, ты присваиваешь переменной X значение переменной Y(получается, что теперь X = Y), а затем присваиваешь переменной Y значение переменной X(хотя они уже равны).