3 мин = 180 с
96 кГЦ=96000Гц
16 бит = 2байт
1) звук - стерео, значит надо будет умножить число на 2
2байт*96000Гц*180с* 2=69120000 байт = 67500 кБайт
Ты прросто скопиру надеюсь получить пробуй
Uses GraphABC;
begin
LockDrawing;
for var i:=1 to 800 do
begin
Window.Clear;
Brush.Color := clGray;
FillRectangle(i+10,90,i-110,430);
Brush.Color := clRed;
Ellipse(i,100,i-100,200);
Brush.Color := clYellow;
Ellipse(i,210,i-100,310);
Brush.Color := clGreen;
Ellipse(i,320,i-100,420);
Redraw;
Sleep(1);
end;
for var i:=1 to 900 do
begin
Window.Clear;
Brush.Color := clBlack;
Ellipse(i,100,i-200,300);
Brush.Color := clWhite;
Ellipse(i-1,101,i-199,299);
Brush.Color := clRed;
Ellipse(i-20,120,i-180,280);
Brush.Color := clWhite;
FillRectangle(i-50,180,i-150,220);
Redraw;
Sleep(1);
end;
end.
Разбиваем справа налево по три разряда и записываем соответствующую восьмеричную цифру.
010 011 -> 23 (8)
На информатике ты делаешь задания на компьютере :) История- ты изучаешь , что было раньше.