Олег, придя из школы, решил записать себе на компьютере мелодию на мобильный аппарат, Он записывал звук - id2094980420230605 от илья1972 05.06.2023 20:01

Question

Информатика: Олег, придя из школы, решил записать себе на компьютере мелодию на мобильный аппарат, Он записывал звук в течение17 секунд при разрядности квантования 32 бит. Информационный объём получившегося у него звукового файла в битах равен 5984000. Найдите частоту дискретизации, при которой записывался файл.

илья1972 · Accepted Answer

Будут вопросы - задавайте.

type a = array[0..999] of Integer;
var B, num: a; var N, k: integer;

procedure SimpleNumber(B: a);
begin
for var i := 0 to N-1 do begin
for var j := 2 to 9 do begin
if B[i] mod num[j] <> 0 then
k += 1;
end;
if k = 8 then begin
write('Есть простое число');
break;
end
else if (k <> 8) and (i = N-1) then
write('Нет простых чисел');
k := 0;
end;
end;

begin
for var i := 2 to 9 do begin
num[i] := i;
end;
read(N);
for var i := 0 to N-1 do
read(B[i]);
SimpleNumber(B);
end.

MOGZ ответил