Файл размером 15 Кбайт передаётся через некоторое соединение за 60 секунд. Определите, за сколько секунд можно передать этот же файл через соединение, скорость которого на 2048 бит в секунду больше. В ответе укажите одно число — количество секунд. Единицы измерения писать не нужно.
Решение.
Размер переданного файла = время передачи · скорость передачи. Скорость передачи файла в первом случае 15360/60 = 256 байт/сек. Скорость передачи во втором случае на 2048 бит = 256 байт в секунду больше, чем в первом, следовательно, исходный файл можно передать за 15360 / 512 = 30.
Объяснение:
Program P1;
uses
Graph,Crt;
var
d,m,i,k : integer;
x,y,x0,y0,r : integer;
a,b : real;
begin
d := detect;
InitGraph(d,m,'');
x0 := 640 div 2;
y0 := 480 div 2;
i := 1;
r := 100;
a := 0;
b := 1;
x := x0;
y := y0;
repeat
Delay(100);
a := a + 0.1;
b := b - 0.1;
ClearDevice;
Circle(x0,y0,r);
x := round(x0 + (r+20)*cos(a));
y := round(y0 + (r+20)*sin(a));
putpixel(x,y,65535);
x := round(x0 + (r+40)*cos(b));
y := round(y0 + (r+40)*sin(b));
putpixel(x,y,65535);
until
KeyPressed = true;
CloseGraph;
end.