Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.
В прямом коде:
В обратном коде:
В дополнительном коде коде:
=> глубина цвет = 16 бит
100dpi => 100*100 точек в квадратном дюйме => 100*100*10*15/2.54 = 590552
590552 * 16 = 9448832 бит = 1181104 байт = 1153 Кбайт =>
Ответ: г) 1151 Кбайт
<span>Две минуты записи цифрового аудиофайла занимают на диске 5,1 Мб. Частота дискретизации — 22050 Гц. Какова разрядность аудиоадаптера? </span>
<span>Решение: 5, 1 Мбайт= 5347737,6 байт 5347737,6 байт: 120 сек : 22050 Гц= 2,02 байт =16 бит</span>
<span>Ответ: 16 бит</span>
Const n = 15;
var a: array[1..n] of integer;
i, j, m: integer;
begin
// генерация и вывод
randomize;
for i := 1 to n do a[i] := Random(19)-8;
for i := 1 to n do write(a[i], ' ');
writeln;
// Сортировка
for i := 1 to n-1 do begin
m := i;
for j := i+1 to n do
if a[j] < a[m] then m := j;
if m <> i then begin
j := a[m];
a[m] := a[i];
a[i] := j;
end;
end;
for i := 1 to n do write(a[i], ' ');
writeln;
// поиск наибольшей разности
m := a[2] - a[1];
for i := 3 to n do
if a[i] - a[i-1] > m then
m := a[i] - a[i-1];
writeln ('разность = ', m);
<span>end.</span>