Если K - разрешение, N - глубина, а I - объём, то K умножай на N и получишь биты. Дели на 8 если нужен байт
program zadacha;
uses crt;
var a,b,c: integer;
begin
writeln('Введите 3 числа');
readln(a,b,c);
writeln(sqrt(a*a*a+b*b*b+c*c*c));
readln;
end.
Поскольку 2^5=32, значит такое сообщение содержит 5 бит информации
25-й 11 будет буква й встречается дважды
Program gt;
var a:array[1..10]of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21)-65;
if(i mod 2=0)then write(a[i],' ');
end;
end.