Что это? или это я тупая?
по формуле N=
32=
32=
=
откуда i=5 бит
Получается что 1 буква алфавита несет 5 бит
<span>var t,s,n:integer;
begin
readln(t);
s:=t*9;
if s>8 then n:=0 else n:=80-s;
writeln('n = ',n);
end<span>.
Пример:
15
</span><span>n = 0</span></span>
2^x=256 => x=8
Производим необходимые расчёты: 2^8 * 2^8 / 1024 = 64 килобайт
Program massive (input, output);
type vector=array[1..10] of integer;
var I:integer;
z:vector;
begin
for I:=1 to 10 do
read (z[I]);
for I:=1 to 10 do
if z[I]<0 then z[I]:=z[i]*(-1);
for I:=1 to 1o do
write (z[I], ' ');
end.