Для начала найдем вес одного символа. Разделим общий объем на количество символов в сообщении. Но для этого переведем в биты: 6*1024*8=49152 бит.
Вес одного символа равняется 49152/6144=8 бит
Воспользуемся формулой N=2^i, где i - вес одного символа, N - количество символов в алфавите.
N=2^8=256 символов.
Да, нужно. Любой принтер требует отключения при заправке чернил
Здесь есть ошибка счисления потому что 128+178=306 а не 318
Const
n = 3;
k = 3;
var
i,j,s1,s2:integer;
a:array[1..n,1..k] of integer;
begin
s1:=0;
s2:=0;
for i:=1 to n do
for j:=1 to k do
begin
Writeln('Введите a[',i,',',j,']:');
readln(a[i,j]);
if (a[i,j]>0) and (i<>j) then s1:=s1+a[i,j];
if (a[i,j]<0) and (i<>j) then s2:=s2+a[i,j];
end;
if s1>s2 then
for j:=1 to k do
begin
a[1,j]:=s1;
a[n,j]:=s1;
end;
if s2>=s1 then
for i:=1 to n do
begin
a[i,1]:=s2;
a[i,k]:=s2;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to k do
write('a[':4,i,',',j,']=',a[i,j]);
writeln;
end;
end.
const
n=30;
var
a:array [1..n] of integer;
i,min:integer;
begin
for i:=1 to n do begin
readln (a[i]);
if a[i]>=20 then min:=a[i];
end;
for i:=2 to n do
if (a[i]>=20) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.