Сместиться в точку (2,0)
опустить перо
сместиться в точку (0,5)
сместиться в точку (4,3)
сместиться в точку (3,0)
<span>сместиться в точку (5,6)
</span><span>сместиться в точку (7,0)
</span><span>сместиться в точку(8,0)
</span><span>сместиться в точку (10,5)
</span><span>сместиться в точку (6,3)
</span><span>сместиться в точку (7,0)
</span><span> сместиться в точку(8,0)
</span><span>сместиться в точку(2,0)</span>
26 букв и 10 цифр составляют алфавит мощностью 36 знаков. Если кодировать их числами от 0 до 35, а 2⁵ < 35 < 2⁶, то для одного знака потребуется до 6 бит. По условию "Каждый символ кодируется <u>одинаковым</u> и минимально возможным количеством бит", поэтому принимаем размер 6 бит. Длина номера 7 символов и суммарно они займут 7×6 = 42 бита. Но по условию номер должен занимать целое число байт. В байте 8 бит, тогда для номера нужно отвести 42/8 = 6 байт с округлением до целых в большую сторону. 20 номеров потребуют для хранения 6×20 = 120 байт.
<u><em>Ответ:</em></u> 120 байт
При использовании 128-символьного алфавита для хранения одного символа требуется log(2)128 = 7 бит; при использовании 64-символьного - log(2)64 = 6 бит.
Объем информации в письме племени Мульти = 30*7 = 210 бит;
объем информации в письме племени Пульти = 60*6 = 360 бит.
360-210 = 150 бит
Ответ: письмо племени Пульти содержит на 150 бит информации больше, чем письмо племени Мульти.
1)
var X:array[12] of real;
i: integer;
begin
for i:=1 to 12 do
begin
readln(X[i]);
X[i]:=X[i]-23;
end;
for i:=1 to 12 do
writeln(X[i])
end.
2)
var M:array[100] of integer;
i: integer;
begin
for i:=1 to 100 do begin
readln(M[i]);
if(M[i] mod 2=0) then M[i]:=M[i]*M[i]
else M[i]=2*M[i];
end;
for i:=1 to 100 do
writeln(M[i]);
end.
3)
var price:array[20] of real;
i:integer;
minprice:real;
begin
minprice:=10000;
for i:=1 to 20 do
begin
readln(price[i]);
if (price[i]<minprice) then minprice:=price[i];
end;
writeln(minprice)
end.
4)
var M:array[100] of integer;
i, counter: integer;
begin
readln(M[1]);
counter:=0;
for i:=2 to 100 do begin
readln(M[i]);
if ((M[i] mod 2=1) and (M[i-1] mod 2=1)) then inc(counter);
end;
writeln(counter)
end.