2 кб = 2 * 1024 байт = 2 * 1024 * 8 бит = 16384 бит
Чтобы понять, что дальше делать, проще всего посмотреть на единицы измерения. В данном случае, чтобы получились секунды, нужно, чтобы сократились биты, поэтому мы делим.
64000/16384 = 3,90625 с
Program L;
uses crt;
var x:integer;
begin
write(' x='); readln(x);
if (x mod 3)=0 then writeln('x=',x,' делется нацело на 3')
else writeln('x=',x,' не делется нацело на 3')
<span>end.</span>
//Попробуем по-новому
var n:integer;
begin;
readln(n);
var ar:=ArrRandomInteger(n+1,10,99);
var i:=1;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
<span>end.</span>
145(8)=1100101(2)
A7(16)=10100111(2)
складываем
1 1 0 0 1 0 1
1 0 1 0 0 1 1 1
------------------------
1 0 0 0 0 1 1 0 0
- 1 0 1 0 вычитаем
----------------------
1 0 0 0 0 0 0 1 0