Program n1;
var a: array[1..15] of integer;
min,i: integer;
begin
randomize;
a[1]:=random(41)-20;
min:=a[1];
for i:=2 to 15 do
begin
a[i]:=random(41)-20;
if a[i]<min then min:=a[i];
end;
write(min);
end.
При мощности алфавита 4096 символов для хранения одного символа требуется log(2)4094 = 12 бит (это и есть информационный вес одного символа).
<span>Количество символов в сообщении = 4*1024*8/12 </span>≈ 2730
Может не работать с некоторыми дробными числами.
Сначала переведем числа в десятичную систему счисления, выполним сложение, и переведем сумму в двоичную систему счисления
A716 = 10⋅16 + 7 = 16710.
2518 = 2⋅82 + 5⋅8 + 1 = 16910.
33610 = 1⋅28 + 1⋅26 + 1⋅24 = 1010100002.
program next;
var a,b,c,q,w,e:real;
begin
a:=random(-30,30);
b:=random(-30,30);
c:=random(-30,30);
writeln(a);
writeln(b);
writeln(c);
q:=a*(-1);
w:=b*(-1);
e:=c*(-1);
if (q>w)and(q>e) then
begin
writeln('1 число больше остальных по модулю');
end;
if (w>q)and(w>e) then
begin
writeln('2 число больше остальных по модулю');
end;
if (e>w)and(e>q) then
begin
writeln('3 число больше остальных по модулю');
end;
end.
Объяснение: