Скорость передачи данных через adsl-соединение равна 1024000 бит/c. через данное соединение файл размером 2000 килобайт. определите время передачи файла в секундах.
в ответе укажите одно число — длительность передачи в секундах. единицы измерения писать не нужно
файл размером 4096 байт передаётся через некоторое соединение за 8 секунд. определите время в секундах, за кото‐ рое можно передать через то же самое соединение файл размером 8 кбайт. в ответе укажите одно число — время в секундах. единицы измерения писать не нужно.
файл размером 16 кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время через другое соединение со скоростью 512 бит в секунду.
в ответе укажите одно число — размер файла в кбайт. единицы измерения писать не нужно.
файл размером 8 мбайт передаётся через некоторое соединение за 100 секунд. определите размер файла (в кбайтах), который можно передать через это же соединение за 25 секунд.
в ответе укажите одно число – размер файла в кбайтах. единицы измерения писать не нужно.
16/2=8 (Остаток 0)
8/2=4 (Ос. 0)
4/2=2 (ост 0)
2/2=1(ост. 0)
32(10)=100000(2)
53/2=26(остаток 1)
26/2=13(остаток 0)
13/2=6(осаток 1)
6/2=3(Остаток 0)
3/2=1(остаток)1
53(10)=110101(2)
80/2=40(остаток 0)
40/2=20(остаток 0)
20/2=10(остаток 0)
10/2=5(остаток 0)
5/2=2(остаток 1)
2/2=1 (остаток 0)
80(10)=1010000(2)
96/2=48(остаток 0)
48/2=24(остаток 0)
24/2=12(остаток 0)
12/2=6(остаток 0)
6/2=3(остаток 0)
3/2=1(остаток 1)
96(10)=1100000
128/2=64(остаток 0)
64/2=32(остаток 0)
32/2=16(остаток 0)
16/2=8(Остаток 0)
8/2=4(остаток 0)
4/2=2(остаток 0)
2/2=1(остаток 0)
128(10)=10000000(2)
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;
procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;
begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.