Var
a: array[1..100] of integer;
k, i, n: integer;
begin
read(n);
for i := 1 to N do
begin
A[i] := random(40) - 20;
if (a[i] mod 3 = 0) and (a[i] mod 5 > 0) then
k := k + 1;
Write(a[i], ' ');
end;
WriteLn();
WriteLn(k);
end.
а)11001001
б) 148 это в десятичной, 224 в восьмеричной, 94 в шеснацетеричной
Var
mas:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
mas[i]:=random(41)-20;
write(mas[i],' ');
end;
end.
частота дискретизации: D = А / Т / I
А - объем памяти (в байтах)
Т - время записи (в секундах)
I - разрядность звуковой платы (в байтах)
1,3 Мбайт = 1363148,8 байт
1 минута = 60 секунд
8 бит - 1 байт
найдем частоту дискретизации:
1363148,8 байт / 60 секунд / 1 байт = 22719,1 Гц
значит D = 22,05 кГц