Программа (без проверки исходных данных):
var a,b,y,z:real;
begin
write('a, b: ');
readln(a,b);
y:=cos(sqrt(a+b));
z:=ln(sin(y)/cos(y));
writeln('ln(tg(cos(sqrt(a+b)))) = ',z);
end.
Пример:
a, b: 0.5 0.8
ln(tg(cos(sqrt(a+b)))) = -0.813058267838025
Определим время передачи.
2048 бит/с = 256 байт/с = 0,25 Кб/с
128/0,25=128*4= 512с
Т.е. Файл передается 512с. Теперь узнаем новую скорость.
72/512= 0,140625 Кб/с = 144байт/с
Ответ:
144 байт/с
<span>Автопилот,интернет,запись на жесткий диск...</span>
Begin
writeln(' * ');
writeln(' * * ');
writeln('* *');
writeln(' * * ');
writeln(' * ')
end.