Для хранения оцифрованных фрагментов звукозаписей отведено X МБайт памяти (X – целое число). Если оцифровку проводить с частотой дискретизации 32000 Hz, то отведенной памяти хватит на хранение
шестидесяти пяти фрагментов и останется свободным 8 МБайт. Если оцифровку проводить с частотой
дискретизации 16000 Hz, то отведенной памяти хватит на хранение ста двадцати восьми фрагментов и
отведенный объем памяти будет использован полностью. Фрагменты звукозаписей имеют одинаковую
продолжительность звучания. Оцифровка проводится с использованием 65536 уровней квантования в
стереофоническом режиме. При кодировании звука сжатия не производится. Известно, что каждый файл с
оцифрованным фрагментом дополнительно содержит 384 КБайт служебной информации. Сколько памяти
отведено для хранения оцифрованных фрагментов звукозаписей? В ответе укажите целое число МБайт.
Примечание: 1 МБайт = 1024 КБайт. 1 КБайт = 1024 Байт
ответ: 1048
Можно подробное решение
В восьмиричной системе: разбиваете двоичное представление на группы по 3 бита справа налево
011 = 3
011 = 3
011 = 3
10 = 2
Тогда в восьмиричной системе: 2333(8) = 2*8^3+3*8^2+3*8^1+3 = 1024+192+24+3=1243(10)
В шестнадцатиричной системе: разбиваете двоичное представление на группы по 4 бита справа налево
1011 = B = 11(10)
1101 = D(16) = 13(10)
100 = 4
Тогда в шестнадцатиричной системе
4DB(16) = 4*16^2+13*16^1+11 =1024+208+11=1243(10)
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.