1 байт - 8 бит.
1 Кбайт - 1024 байт
Если это учесть, то номер 4
Переведем всё в биты
4)5 бит, 20 бит, 24 бита, 8080 бит, 8192 бита
//программа выводит двоичное представление введенного с клавиатуры десятичного числа в диапазоне от 0 до 255
const t:Array[1..8] of integer =(1,2,4,8,16,32,64,128);var d:string;sum, r,i:integer;s:Array[1..8] of char;beginwrite('Введите 8 цифр 2-го числа');readln(d);if d.Length = 8 thenbeginfor i:=1 to 8 dobeginr := StrToInt(d[i]);sum := sum + t[9-i]* r;end;write(sum);endelsewrite('Вы не верно ввели число, только ', d.Length,' цифр');<span>end.</span>
1 Мб = 1024*1024=1048576
1/512 = 1048576/512 = 2048 байт
2048*8 = 16384 бит
Var
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.