Каждый из возможных символов должен использовать минимально возможное количество БИТ, следовательно :
25 букв + 10 цифр = 35 символов.
Для их хранения требуется узнать минимальное количество бит, (Степень цифры 2), поэтому:
( так как 2^5 < 35 < 2^6) получается, что использовать менее 6 бит нельзя. Таким образом, при 6 битах на символ, номер, содержащий 7 символов определяется:
7 * 6 = 42 бита.
Так как номер записывается минимально возможным количеством БАЙТ, то объём его в БИТАХ должен быть кратен 8 и в случае необходимости округляться в большую сторону.
Ближайшее число кратное 8 - это 48.
48 / 8 = 6 байт.
6 БАЙТ занимает 1 номер.
Таким образом, 6 * 80 = 480 байт.
Сошлось или же я что-то упустил?
У нас была команда назывались "болванки", девиз точно не помню что то вроде " мы весёлые болванки, озорные хулиганки...". в качестве эмблемы использовали обычные диск, т.е болванку
<span>var
</span><span><span> a,b,c:</span>integer;
</span><span><span> begin
</span><span> read(a,b,c);</span>
</span><span> writeln(a,'+',b,'+',c,'=',a+b+c);
</span><span> writeln(a,'*',b,'*',c,'=',a*b*c);
</span><span> writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3:4:3);
</span><span><span> end.</span></span>
Const n=3;
type lec=record
name:string;
cost:integer;
end;
var a:array [1..n] of lec;
max1:integer;
m,k,p,i:byte;
begin
for i:=1 to n do
with a[i] do begin
writeln ('Введи наименование товара');
readln (name);
writeln ('введи стоимость товара');
readln (cost);
end;
max1:=-1;
for i:=1 to n do
if a[i].cost>max1 then begin max1:=a[i].cost;
p:=i;
end;
while k<>1 do begin
for i:=1 to n do
if (i<>p) and (a[i].cost=max1) then begin m:=i;
k:=1;
end;
max1:=max1-1;
end;
writeln (a[p].name,' ',a[p].cost);
write (a[m].name,' ',a[m].cost);
readln;
end.