Скорость передачи данных по сети Bluetooth равна 2 Мбит/с. За сколько секунд удастся передать рисунок объёмом 3⋅10 в 6 степени байт?

12 c

Мегаби́т = 10⁶ или 1000000 бит.

1 байт = 8 бит.

2Мбит = 2 * 10^6 бит = 2 * 10^6 / 8 байт = 250 000 байт.

Скорость = 2Мбит/c = 250 000 байт/c

Рисунок = 3*10^6 = 3 000 000 байт

Время = 3 000 000 / 250 000 = 12 c

Program P1;

Uses Crt; {можно и не использовать, без оной clrscr -  видаст ошибку, что нет такого}

Var a,p: Real;
    n,i: Integer;

Begin
    ClrScr; {просто чтобы очистить экран можно и не использовать}
    Write('Type a: '); Read(a);
    Write('Type n: '); Read(n);
    for i:=1 to n do
    begin
        p:=p+(a*(a-i*n)*(a-n*n));
        {не совсем понятны три точки в условии}
    end;
    Writeln('p=', p:3:3); {количество знаков после запятой и общее}
    Readkey; {или можно использовать Readln;}
End.

Program P1;

Uses Crt; {можно и не использовать, без оной clrscr -  видаст ошибку, что нет такого}

Var a,p: Real;
    n,i: Integer;

Begin
    ClrScr; {просто чтобы очистить экран можно и не использовать}
    Write('Type a: '); Read(a);
    Write('Type n: '); Read(n);
    for i:=1 to n do
    begin
        p:=p+(a*(a-i*n)*(a-n*n));
        {не совсем понятны три точки в условии}
    end;
    Writeln('p=', p:3:3); {количество знаков после запятой и общее}
    Readkey; {или можно использовать Readln;}
End.