1. 1 символ занимает 1 байт. "восемь мегабайт" 15 символов с пробелом (он тоже занимает место). 15 бит содержится в сообщении "восемь мегабайт"
Ответ: 15 бит.
2. 55*72*365=1445400 количество символов в книге, 1 символ 1 байт.
переведем байты в килобайты 1445400 / 1024 = 1411.52 Кбайт
получим мегабайты 1411.52 / 1024 = 1.378 мб.
Ответ: 1.378 мб.
3. мощность 256 символов это 2 в 8 степени. 1 символ занимает 8 байт.
всего 35 символов. 35*8= 280 байт.
Ответ: 280 байт информационный объем текста.
<span>Var
Text, Slovo, max:string;
Begin
WriteLn('Введите строку, разделенную пробелами: '); ReadLn(Tex);
Text:= Text + ' ';
max:='';
While Pos(' ',Text) <> 0 do
Begin
</span>Slovo<span>:= Copy(Text, 1, Pos(' ',Text) - 1);
Delete(Text, 1, Pos(' ',Text));
if Length(</span><span>Slovo</span><span>) > Length(max)
then max:= </span>Slovo<span>;
End;
WriteLn('Самое длинное слово: " ',max,' " его длина ',Length(max));
ReadLn;
End.</span>
12022, 1222, 989, 90899, 9000
<span>program
HelloWorld;</span>
var run,
day: integer;
begin
<span> run := 10;</span>
<span> day := 1;</span>
<span> while run<20 do</span>
<span> begin</span>
<span> write('</span>День:');
<span> write(day);</span>
<span> write('</span>Километраж:');
<span> writeln(run);</span>
<span> day:= day +1;</span>
<span> run := run+2;</span>
<span> end;</span>
<span> write('</span>День:');
<span> write(day);</span>
<span> write('</span>Километраж:');
<span> writeln(run);</span>
end.
нач. пункт:лев ниж угол
1 сместиться на 5 клеток в верх
2 повернуться на 90 градусов в право
3 сместиться на 2 клетки вперёд
4 повернуться на 90 градусов в право
5 сместитьтся на 2 клетки вперёд
6 повернутся на 90 градусов в лево
7 сместится на 2 клетки вперёд
8 повернутся на 90 градусов в лево
9переместиться 2 клетки
10 повт 8 и 9
11 повторить всё это ещё один раз