8.для записи текста использовался 256 символьный алфавит. чему равен информационный объем сообщения записанного на 2 страницах? если на каждой странице по 40 строк и в каждой строке по 10 символов. покажите решение, ответ: 6400

256=2⁸, поэтому каждый символ кодируется 8 битами, строка занимает 10×8=80 бит, страница - 40×80 = 3200 бит, две страницы - 2×3200=6400 бит

Чувак, я же тебе уже писал. Я не виноват если ты биты в байты перевести не можешь.
N=256
N=2^b, => b=8 БИТ на 1 символ
k= 10*40*2=800 символов всего
V= 800*8= 6400 БИТ= 800 БАЙТ
Ибо 1 байт = 8 бит 
И если в задании не сказано в какой величине ответ, то ты хоть в гигабайты перевести можешь

ответ: ВБГА

Объяснение:

Запрос под кодом В наберёт больше всего результатов, так как тут есть целых три ключевых слова, которые могут быть в искомой странице

Запрос под кодом Б наберёт результатов меньше, так как тут только два ключевых слова

Запрос под кодом Г наберёт результатов ещё меньше, так как тут необходимо, чтобы два ключевых слова были в одном документе, а в предыдущих запросах слова были на выбор

Запрос под кодом А наберёт меньше всего результатов, так как целых три ключевых слова должны быть в искомом документе

1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

Всё проверено, удачи:)