128 это 2 в седьмой степени, значит на каждый символ приходится по 7бит.
Зависит от того, в какой кодировке написано письмо, сжато или нет, какой байт используется в данной компьютерной системе, в конце концов как измеряется информационный объём сообщения. Однозначного ответа тут быть не может. Можешь написать 672 и 84, положив кодировку однобайтовой, но это не решение.
Program prog;
uses crt;
Var a,b,x: real;
begin
clrscr;
write('x = ');
readln(x);
write('a = ');
readln(a);
write('b = ');
readln(b);
writeln;
if (a<=x)and(b>=x) then
writeln('Принадлежит')
else
writeln('Не принадлежит');
end.
Var
a:array[1..6]of integer;
i,j,max:integer;
function mx(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
for i:=1 to 6 do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=1 to 6 do
for j:=i+1 to 6 do
if mx(a[i],a[j])>max then max:=mx(a[i],a[j]);
writeln('max=',max);
<span>end.</span>