Музыкальный фрагмент был оцифрован и записан в виде файла без
использования сжатия данных. Получившийся файл был передан в город А по каналу связи за
20 секунд. Затем тот же музыкальный фрагмент был оцифрован повторно с разрешением в 3
раза выше и частотой дискретизации в 2 раза меньше, чем в раз. Сжатие данных не
производилось. Полученный файл был передан в город Б. Пропускная канала
связи с городом Б в 2 раза выше, чем канала связи с городом А. Сколько секунд длилась
передача файла в город Б? ответ запишите как целое число, единицу измерения писать не
нужно.
1)
2) 3 единицы
3) 24D
4) 6
5) 2 раза
Объяснение:
2)
3) Переводим число
в 16-ичную систему счисления, для этого делим его на 16 и запоминаем остаток. Затем результат деления также делим на 16 и запоминаем остаток. Повторяем эти действия до тех пор, пока частное не будет равно 0:
589 : 16 = 36, остаток 13
36 : 16 = 2, остаток 4
2 : 16 = 0, остаток 2
Затем записываем остатки от деления в обратном порядке: 2 4 13
Заменяем числа больше 9 на буквы
(10 - A; 11 - B; 12 - C; 13 - D; 14 - E; 15 - F)
Результат:
4)
5) Посчитаем от 1 до 10 в 6-ичной системе счисления:
1 2 3 4 5 10 11 12 13 14
1) Код программы:
const N = 10;
var a:array[1..N] of integer;
i:integer;
begin
writeln('Массив:');
for i:=1 to N do begin
a[i] := random(-100, 100);
write(a[i], ' ');
end;
writeln();
writeln('Отрицательные элементы, кратные 3: ');
for i:=1 to N do begin
if ((a[i] < 0) and (a[i] mod 3 = 0)) then
write(a[i], ' ');
end;
end.
2) Код программы:
const N = 8;
var a:array[1..N] of integer;
i, sum:integer;
begin
writeln('Массив:');
for i:=1 to N do begin
a[i] := random(-100, 100);
write(a[i], ' ');
end;
sum:=0;
writeln();
writeln('Сумма нечётных элементов, больше 10: ');
for i:=1 to N do begin
if ((a[i] > 10) and (a[i] mod 2 = 1)) then
sum:= sum + a[i];
end;
write(sum);
end.
3) Код программы:
const N = 10;
var a:array[1..N] of integer;
i, kol:integer;
begin
writeln('Массив:');
for i:=1 to N do begin
a[i] := random(-5, 5);
write(a[i], ' ');
end;
kol:=0;
writeln();
writeln('Количество элементов, равных нулю с чётными индексами: ');
for i:=1 to N do begin
if ((a[i] = 0) and (i mod 2 = 0)) then
kol:= kol + 1;
end;
write(kol);
end.