В случае постоянного и бесперебойного Интернет-соединения (что бывает крайне редко) задача имеет следующее решение:
1) За секунду передаётся 56 Килобит информации. Три минуты - это 180 секунд.
2) Поскольку передача файла заняла 180 секунд, нужно умножить количество информации в секунду на 180 для того, чтобы определить исходный размер файла:
3) 56(Кбит/секунду) * 180(секунд) = 10080(Кбит).
4) Один байт эквивалентен 8 битам. В одном Мегабайте 1024 Килобайта. Делим полученное значение на 8, а затем на 1024, чтобы определить размер файла в Мегабайтах:
5) 10080 / 8 / 1024= 1,23046875(Мб).
Ответ: исходный размер файла приблизительно составляет 1,23046875 Мб.
Удачи!
begin
var n := ReadInteger;
if n mod 25 = 0 then
Println(25, n div 25)
else
begin
var (n1, n2) := (24, 25);
var r: integer;
repeat
for var i := 1 to n div n1 do
begin
r := (n - n1 * i) mod n2;
if r = 0 then
begin
Println(n1, i + (n - n1 * i) div n2);
exit
end;
end;
Dec(n1);
Dec(n2);
until n1 = 0;
end;
end.
===== PascalABC.NET =====
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
For i:= 1 to K do
Begin
Z[i]:=random(21)-10;
Write(Z[i],' ');
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
То же, но с вводом с клавы:
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
WriteLn('Введите элементы массива:');
For i:= 1 to K do
Begin
Read(Z[i]);
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.