Скорость передачи данных через adsl-соединение равна 1024000 бит/c. через данное соединение файл размером 2000 килобайт. определите время передачи файла в секундах.
в ответе укажите одно число — длительность передачи в секундах. единицы измерения писать не нужно

файл размером 4096 байт передаётся через некоторое соединение за 8 секунд. определите время в секундах, за кото‐ рое можно передать через то же самое соединение файл размером 8 кбайт. в ответе укажите одно число — время в секундах. еди​ни​цы из​ме​ре​ния пи​сать не нужно.

файл размером 16 кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла (в кбайт), ко​то​рый можно пе​ре​дать за то же время через дру​гое со​еди​не​ние со ско​ро​стью 512 бит в секунду.
в от​ве​те ука​жи​те одно число — раз​мер файла в кбайт. еди​ни​цы из​ме​ре​ния пи​сать не нужно.

файл размером 8 мбайт передаётся через некоторое соединение за 100 секунд. определите размер файла (в кбайтах), который можно передать через это же соединение за 25 секунд.
в ответе укажите одно число – размер файла в кбайтах. единицы измерения писать не нужно.

To: teacher(собака маил ру)

From: student(собака маил ру)

Content-Type: multipart/alternative; boundary=3d6b6a416f9b5;

--3d6b6a416f9b5

Content-Type: text/plain; charset=UTF-8

Content-Transfer-Encoding: base64

Здравствуйте!. Я живу в городе Москва. Возле меня 10 городов, из которого приезжают рабочие. Очень много рабочих. Всё хорошо!

--3d6b6a416f9b5

Content-Type: text/html; charset=UTF-8

Content-Transfer-Encoding: quoted-printable

Content-Disposition: inline

<div>Здравствуйте!. <strong>Я<strong/> живу в городе <span style="color:red;">Москва</span>. Возле меня <em>10</em> городов, из которого приезжают рабочие. Очень <span style="font-size:50px;">много</span> рабочих. Всё хорошо!</div>

--3d6b6a416f9b5--

Исправленная программа:
Program lab5;
const n=11;
type masiv=array[1..n]of integer;
var l,k,m:masiv;
i:integer;
procedure vivod(mas:masiv);
var i:integer;
begin
for i:=1 to n do write(mas[i],' ');
writeln;
end;
procedure new_mas(var mas:masiv);
var i,j:byte;
min:integer;
begin
j:=1;
min:=mas[1];
for i:=2 to n do
if (min>mas[i]) then
 begin
 min:=mas[i]; j:=i;
 end;
writeln('min = ',min);
mas[j]:=mas[1];
mas[1]:=min;
end;
begin
writeln('Дано:');
randomize;
for i:=1 to n do
 begin
 l[i]:=random(-56,40);
 k[i]:=random(-56,40);
 end;
write('массив L[',n,']: ');
vivod(l);
new_mas(l);
write('измененный массив L[',n,']: ');
vivod(l);
write('массив K [',n,']: ');
vivod(k);
new_mas(k); 
write('измененный массив K[',n,']: ');
vivod(k);
for i:=1 to n do m[i]:=l[i]+k[i];
write('массив M[',n,']: ');
vivod(m);
end.

Пример:
Дано:
массив L[11]: 4 -34 -2 3 -53 -53 38 1 -33 -3 11 
min = -53
измененный массив L[11]: -53 -34 -2 3 4 -53 38 1 -33 -3 11 
массив K [11]: -43 -18 -8 -9 34 -34 -49 40 -47 -22 9 
min = -49
измененный массив K[11]: -49 -18 -8 -9 34 -34 -43 40 -47 -22 9 
массив M[11]: -102 -52 -10 -6 38 -87 -5 41 -80 -25 20