Сколько килобайт составит сообщение из 512 символов 16-символьного алфавита

6 символов можно закодировать 4 битами, так как 16=2^4, тоесть 1 символ = 4 бита. 
В таком случае, 512 символов = 4 бита *512=2048 бита=2048/8 байта=256 байта или 0,25Кбайта. 
ответ: 256 байта

16 символов
один символ весит 4 бита. (2^4=16)
512*4=2^9*2^2=2^11бит
2^11 бит = 2^8 байт = 0,25 килобайт

Var s: string;
    i, z, n, a: integer;
begin
     readln(a);
     s := floattostr(a);
     for i := 1 to length(s) do
     begin
         if (s[i] = '0') then inc(z);
         if (s[i] = '9') then inc(n);
     end;
     writeln(z, ' ', n);
     if (z > n) then writeln('"0" > "9"');
     if (z < n) then writeln('"0" < "9"');
     if ((z = 0) and (n = 0)) then writeln('"0" = "9" = 0!')
        else if (z = n) then writeln('"0" = "9" = ', z);
end.

Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)

Var s: string;
    i, z, n, a: integer;
begin
     readln(a);
     s := floattostr(a);
     for i := 1 to length(s) do
     begin
         if (s[i] = '0') then inc(z);
         if (s[i] = '9') then inc(n);
     end;
     writeln(z, ' ', n);
     if (z > n) then writeln('"0" > "9"');
     if (z < n) then writeln('"0" < "9"');
     if ((z = 0) and (n = 0)) then writeln('"0" = "9" = 0!')
        else if (z = n) then writeln('"0" = "9" = ', z);
end.

Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)