Производится одноканальная моно звукозапись с частотой искретизации 64 гц. при записи использовались - id754389020210802 от kuvandykov05 02.08.2021 21:11

Question

Информатика: Производится одноканальная моно звукозапись с частотой искретизации 64 гц. при записи использовались 64 уровня дискретизации. запись длится 5 минут 20 секунд. какой размер (в килобайтах) ?

kuvandykov05 · Accepted Answer

Напишу ответ, потому что:
1) Все же С++ изучают реже, чем Паскаль
2) Чтобы в очередной раз показать преимущества Паскаля над С-подобными языками для школьных задач.
Как говорится, "Имеющий глаза - да увидит!"

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('N=');
for var i:=1 to n do begin
    var (flag,j,r):=(True,2,Round(Sqrt(i)));
    while flag and (j<=r) do
      if i mod j = 0 then flag:=false
      else j+=1;
    if flag then Print(i)
    end
end.

Пример
N= 150
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149

MOGZ ответил