запишем условие: мощность алфавита равна N=256, страниц=3, строк=48, символов=64, I=?
решение: подсчитаем общее количество символов в тексте
К=3*48*64=9216
найдем вес одного символа алфавита
256=2^i, 2^8=2^i, i=8 бит
вычислим информационный объем текста
I=K*i=9216*8=73728 бит=9216 байт
Провайдер
=============================================
Держи.делайте отступы,с отступами код более понятнее
Uses crt;
var a:integer;
begin
readln(a);
if (a mod 10)>(a div 100) then writeln('3>1');
if (a mod 10)<(a div 100) then writeln('1>3');
end.
У вас начало неправильное должно быть первой строкой program ; и не правильно'vari'вместо'var' цикл работать не будет так как не верный указан параметр