1,5 КБ=1536 байт=12288 бит
12288/3072=4 бита на символ
=16 символов в алфавите
3 бита
=8 - на кодировку одного символа требуется 3 байта
3*13=39 бит
60*3*25=4500 символов в сообщении
1125*8=9000 бит занимает сообщение
9000/4500=2 бита на символ
=4 символа в использованном алфавите
фрезеровщик - <span>Аладар - 15
</span>электромонтер - <span>Петер - 55
</span>маляр - <span> Вилмош - 25
</span>слесарь - <span>Лайош - 33</span>
Const n=10;
var a: array[1..n] of integer;
i,m,n,max:integer;
begin
randomize;
a[1]:=random(300);
max:=a[1];
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=random(300);
if a[i]>max then max:=a[i];
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if (a[i]>0 then a[i]:=a[i]*max;
<span>for i:=1 to n do
</span>write(a[i],' ');
end.
const n=4; m=8;
var a:array[1..n,1..m] of integer;
i,j,x: integer;
begin
x:=1;
for j:=1 to m do
begin
for i:=1 to n do
begin
a[i,j]:=x;
if (j mod 2 = 0) and (i<>n) then x:=x-1
else x:=x+1
end;
x:=x+n-1
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:5);
writeln
end
end.
