Var a: integer;beginreadln(a);if a<25 then begin if a>5 then writeln('Принадлежит'); endelse writeln('Не принадлежит');end.
Максимальное кол-во — 4 байта = 32 бита
Ответ: 32
const
N=20;
var
a:array [1..N] of integer;
i,j,max,k:integer;
begin
max:=99;
for i:= 1 to N do
begin
readln(a[i]);
j:=a[i];
for k:= 1 to N do
begin
if (j>99) and (j<999) and (j mod 9 <>0) and (j>max) then max:=j;
end;
end;
if max>99 then writeln (max) else writeln ('no');
end.
Var r,v,s : integer;
begin
write('Вес в кг = ');
readln(v);
write('Рост в см = ');
readln(r);
s:=r-100;
if s<v
then writeln('Похудеть на ',v-s,' кг')
else if s>v then writeln('Поправиться на ',s-v,' кг')
else writeln('Идеальный вес');
<span>end.</span>
1. объем данного сообщения равен: 3х1024х8=24576 бит
2. тогда на 1 символ приходится 24576/3072=3 символа
3. по формуле N=2^I определяем кол-во символов в рассматриваемом алфавите: N=2^3=8
Ответ: 8 символов