22050 Гц - значит на каждую секунду приходится 22050 семплов(точек)
2 минуты это 120 секунд.
5,1мб поделим на 120 секунд = 44100 байт в секунду.
То есть каждый семпл занимает 2 байта.
Если это запись стерео - то 1 байт на канал (разрядность 8 бит), если моно то 2 байта - разрядность 16 бит
Результат выполнения алгоритма показан на прилагаемом рисунке. Начальная точка может быть любой (не обязательно 0,0).
Program gt;
var i,k:integer;
begin
k:=0;
for i:=1 to 1000 do
if(i mod 2=1)then begin
k:=k+1;
write(i,' ');
if(k=20)then exit;
end;
end.
2)
program gt;
var i,k:integer;
begin
k:=1;
write(k,' ');
for i:=1 to 14 do
begin
k:=k+3;
write(k,' ');
end;
end.
Пишу на QBasic
CLS
INPUT N
C=1
FOR I = 1 TO N
C=C*I
NEXT I
PRINT C
Вроде так ...............