"<span>Я вас любил безмолвно, безнадежно, то робостью, то ревностью томим." - 67 символов (включая знаки препинания и пробелы)
Количество информации = 67*16 = 1072 бита
"</span><span>Я памятник себе воздвиг нерукотворный." - 38 символов
</span>Количество информации = 38*16 = 608 бит
Информатика?
Попробуй нажать;
Ctrl+Alt+Home
1) 795 в двоичной = 1100011011
71 в двоичной = 1000111
1100011011 - 1000111 = 1011010100
1011010100 в десятичной = 724
2) 640 в двоичной = 1010000000
71 в двоичной = 1000111
1010000000 - 1000111 = 1000111001
1000111001 в десятичной = 569
Var b,c:integer;
a: array [1..20] of integer; {объявляем массив}
begin
randomize; {говорим что будем использовать в теле программы рандомные числа}
for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }
a[b]:=random(1000); {присваиваем элементам массива рандомные значения}
write(a[b]); {выводим эти значения}
writeln(' <== ',a[b]*2); {рядом выводим точно такой же массив с такими же числами, только умноженными на 2 , а стрелочка для красоты }
end;
<span>end.
надеюсь что так можно? ;D
</span>