Обозначим неизвестное нам основание как x. По общей формуле представления чисел в позиционной системе счисления (поищите в сети саму формулу, на этом ресурсе ссылки, к сожалению, запрещены:) ) 30 можно представить как 3*x^1 + 0*x^0 т.е. 3x и приравнять к 24. Выходит:
3x = 24
x = 8
Основание неизвестной системы счисления: 8.
Если есть вопросы по поводу решения - оставляйте в комментариях:)
1)
uses crt;
const n=8;
var i:integer;
a:array[1..n] of integer;
begin
writeln('Input elements.');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<0 then
write(a[i],' ');
<span>end.
2)
uses crt;
const n=10;
var i,t:integer;
a:array[1..n] of integer;
begin
randomize;
t:=0;
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(10,1);
write(a[i],' ');
if a[i] mod 2=0 then
t:=t+1;
end;
writeln(#13#10,t);
<span>end.
3)
uses crt;
const n=10;
var i,sum,t:integer;
a:array[1..n] of integer;
begin
randomize;
sum:=0;
t:=0;
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(10,1);
write(a[i],' ');
if a[i] mod 2=0 then
sum:=sum+a[i]
else
t:=t+1;
end;
writeln(#13#10,sum,' ',t);
<span>end.
</span>4)
uses crt;
const n=10;
var i:integer;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10,1);
write(a[i],' ');
if a[i] mod 2=0 then
a[i]:=2*a[i]
else
a[i]:=3*a[i];
end;
write(#13#10);
for i:=1 to n do
write(a[i],' ');
<span>end.</span>
</span></span>
Дано: N1=65536 N2=256
Найти: i1/i2
Определим глубину кодирования звука i из формулы: N=2^i , где N- уровень интенсивности сигнала. Отсюда i= ㏒₂ N
i1=㏒₂ 65536=㏒₂ 2¹⁶= 16
i2=㏒₂ 256 = ㏒₂ 2⁸= 8
i1/i2 = 16/8= 2
Ответ: Информационный объем первого варианта в 2 раза больше
V = K*I, где
V - объем;
K - количество символов в сообщении;
I - количество бит на символ (1 символ = 8 бит = 1 байт).
K = n*x*y, где
n - количество страниц;
x - количество строк;
y - количество символов.
K = n*x*y = 144 * 33 * 57 = 270864 символов в сообщении.
V = K*I = 270864 * 8 бит = 2 166 912 бит = 270864 байт = 264,5 кбайт = 0,25 мбайт.