Файл размером 10 Кбайт передаётся через некоторое соединение со скоростью 256 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 1024 бит в секунду.

👇

Увидеть ответ

Ответ:

osmyhinaozd6ev

11.12.2021

Найдём время передачи файла:

Сначала переведём 10 Кбайт/с в байт/с

10 Кбайт/с × 1024 = 10240 байт/с

И переведём 256 бит/с в байт/с

256 ÷ 8 = 32 байт/с

Следовательно, время передачи файла:

10240 ÷ 32 = 320 сек.

Находим размер файла. Сначала переведём 1024 бит/с в байт/с

1024 × 8 = 8192 байт/с

И её в кбайт

8192 ÷ 1024 = 8 Кбайт/c

Умножаем наши обе полученные числа:

320 × 8 = 2560 Кбайт

ответ: 2560

4,7(11 оценок)

Открыть все ответы

Ответ:

akrasnoplakhtyc

11.12.2021

1) k:=k mod 3+k*cos(5);
В правой части стоит функция косинус, которая определена только для вещественных чисел и операция mod, которая определена только для целых чисел. Если k целочисленное, то правая часть будет вещественной и попытка присвоить вещественное значение целочисленной переменной недопустима. Надо ставить явное преобразование, например k:=Trunc(k mod 3+k*cos(5)); или k:=Round(k mod 3+k*cos(5));
Если же k - вещественное, то операция k mod 2 недопустима.
2) x:=x*2 div 6+x/4
Тут в правой части смешаны операция div, которая определена только для целых и операция деления, которая определена для вещественных. Такое смешивание вещественных и целый запрещено. В Паскале нет функции перевода целых в вещественные, только процедура, но её в выражение не встроишь. Поэтому можно только говорить о переводе результата х/4 к целому значение посредством Trunc(х/4) или Round(x/4). Либо о замене х/4 на x div 4. Само собой, х надо объявлять целым.

4,5(30 оценок)

Ответ:

natalyakulesch

11.12.2021

задача 1

program ProcArray;

procedure GetMax (A: array of Integer; var imax: Integer);

var

i: Integer;

begin

imax := Low (A);

for i := Low (A) to High (A) do

if A [i] > A [imax] then

imax := i;

end;

procedure GetMin (A: array of Integer; var imin: Integer);

var

i: Integer;

begin

imin := Low (A);

for i := Low (A) to High (A) do

if A [i] < A [imin] then

imin := i;

end;

procedure Repl (var A: array of Integer; OldValue, NewValue: Integer);

var

i: Integer;

begin

for i := Low (A) to High (A) do

if A [i] > OldValue then

A [i] := NewValue;

end;

var

A: array [0..49] of Integer;

i, imax, imin: Integer;

begin

Randomize;

for i := Low (A) to High (A) do begin

A [i] := Random (21) - 10;

Write (A [i] :3, ' ');

end;

WriteLn;

GetMax (A, imax);

WriteLn ('Максимальное значение = ', A [imax]);

GetMin (A, imin);

WriteLn ('Минимальное значение = ', A [imin]);

Repl (A, 1, 0);

WriteLn ('Замена >1 на 0');

for i := Low (A) to High (A) do

Write (A [i] :3, ' ');

ReadLn;

end.

задача 2

program ProcArray1;

procedure Multi (A: array of Integer; var Prod: LongInt);

var

i: Integer;

begin

Prod := 1;

for i := Low (A) to High (A) do

Prod := Prod * A [i];

end;

procedure Repl (var A: array of Integer; OldValue, NewValue: Integer);

var

i: Integer;

begin

for i := Low (A) to High (A) do

if A [i] > OldValue then

A [i] := NewValue;

end;

var

A: array [0..29] of Integer;

i: Integer;

p: LongInt;

begin

Randomize;

for i := Low (A) to High (A) do begin

A [i] := Random (3) + 1;

Write (A [i] :3, ' ');

end;

WriteLn;

Multi (A, p);

WriteLn ('Произведение = ', p);

Repl (A, 5, 1);

WriteLn ('Замена >5 на 1');

for i := Low (A) to High (A) do

Write (A [i] :3, ' ');

ReadLn;

end.

Объяснение:

Во задаче №2 при заполнении массива значениями больше 5 начинает возникать переполнение LongInt из за чего значение произведения становится отрицательным

4,8(92 оценок)

Это интересно:

Образование

06.01.2021

Клюква стоит 250 рублей за кг, а малина 200....

Образование

16.03.2023

Решить систему уравнений x2 + y2 + xy = 3...

Образование

05.08.2020

Решить систему уравнений x2 + xy +y2 = 13...

Образование