Так имеется ввиду? Рад помочь, 20 минут рисовал.
Var a,r,b:real;
begin
b:=8;
writeln ('Введи a');
readln (b);
r:=2.7*b*b-a*1/5*(a*2);
writeln ('r = ',r);
end.
<em>(1*2+3-4+5:6+7):8=1</em>
1*2=2
2*3=6
6-4=2
2+5=7
7-6=1
1+7=8
8:8=1
<em />
<em></em>
<em></em>
<em></em>
<em></em>
<em></em>
<em></em>
Итак. Общий размер файла 1,5 = 1536 Мбайт. Размер буфера T 128 Мбайт. Значит, для передачи файла через этот буфер его потребуется заполнить 1536 / 128 = 12 раз. Получилось целое число, поэтому мы посчитаем время, которое требуется на шаги 1-6, и умножим его на 12.
Так как ничего не сказано о времени на закрытие соединения, будем считать, что на это время не тратится.
1) Устанавливаем соединение с А - 1 секунда
2) Принимаем от устройства А 128 Мбайт со скоростью 8 Мбайт в секунду - 128 / 8 = 16 секунд
3) Закрываем соединение с А
4) Открываем соединение с В - 4 секунды
5) Передаём устройству В 128 Мбайт со скорость 2 Мбайта в секунду - 128 / 2 = 64 секунды
6) Закрываем соединение с В
Итого: 1+16+4+64 = 85 секунд
85 * 12 = 1020 секунд = 17 минут.
Ответ: 17 минут.