Для начала найдём "вес" одной буквы такого алфавита. Воспользуемся формулой:
где m - количество букв в алфавите, а n - минимальная степень числа "2", которая способна в себя уместить все буквы алфавита.
m=64, тогда
n=6
6 бит нужно для записи одной буквы.
По условию задачи нам нужно записать 60 таких символов.
360 бит нужно для записи 60 символов. Или 45 байт.
Uses crt;
var a: array[0..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
write(random(21)-10,' ');
end;
<span>end.</span>
Program primer;
var a,b:integher;
begin
writeln('vvedite a,b:=');
readln(a,b);
if (a<0) and (b<0) then writelln('yes') else writeln('no');
readln;
end
Const n=15;
var a:array[1..n] of integer;
i,k,max:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(33)-15;
write(a[i]:4);
end;
writeln;
k:=0;
max:=-999;
for i:=1 to n do
begin
if a[i] mod 2 = 0 then k:=k+1;
if (a[i]>max)and(a[i]<0) then max:=a[i];
end;
writeln('k = ',k,' max = ',max);
end.
Пример:
Массив A:
14 5 5 7 -10 -13 -3 10 5 -2 -4 -5 3 -10 -14
k = 7 max = -2