<span>Объем памяти для хранения данных 1 канала (моно) </span>
<span>I = f * b * t
</span>(для хранения информации о звуке длительностью t секунд, закодированном с частотой дискретизации f Гц и глубиной кодирования b бит требуется I<span> бит памяти)</span><span>
f = </span>20050 Гц
b = <span>24 бит
</span>t = 1,5 мин = 1,5 * 60 = 90 сек
I = 20050 * 24 * 90 = 43308000 бит
I = 43308000 бит = 43308000/8 = 5413500 байт = 5413500/1024 ≈ 5286,621 кбайт = 5286,621/1024 ≈ 5,2 Мбайт
I ≈ 5,2 Мбайт
var
p : integer := 1;
n : integer := 6;
begin
for var i := 1 to n do p *= i;
writeln(p);
end.
Var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=' ' then delete(s,i,1);
write (s);
<span>end.
</span>var a, b, c, i:integer;
s, k:string;
begin
read (s);
k:='kk';
for i:=1 to length(s) do if s[i]=' ' then insert(k,s,i+1);
write (s);
<span>end.
</span>
var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=',' then a:=i;
write (a);
end.
Благодарность не помешает.
Ответ:
Должна быть не маленькая англ. буква l, а большая англ. буква I
Объяснение:
Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.