Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.
1. Используем формулу N=2^I
1,5 байта = 1,5*8 бит = 12 бит.
Число уровней квантования = 2^12 = 4096
2. Размер цифрового стереоаудиофайла измеряется по формуле:
V = 2*D*i*T,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
V = 2*16000*8*2*60 бит = 2*16000*8*2*60 / 8 байт = 2*16000*2*60 байт =
2*16000*2*60 / 1024 Кбайт = 3750 Кбайт
Это вид информации, поступающей по проводящим путям сенсорных систем и вызывающей определённый вид ощущений(например - зрительная модальность или слуховая модальность)
Var i, q, n : integer;
begin
read(q, n);
for i:=10 to 99 do
if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then
write(i, ' ');
<span>end.</span>
На 1 символ надо log(2)128=7 бит;
на 600 символов 600*7 бит = 600*7 / 8 байт = 525 байт = 525 / 1024 Кбайт = 0,5126953125 Кбайт