Var y,a,x:real;
begin;
readln(x);
readln(a);
if x=0 then exit;
y:=sqr(a)+5*x-8/(4*x)-8+(6*x/2);
writeln(y);
end.
С:= 0
for i := 1 to 9 do
if A[1] (7) < A[0] (4) then begin
c = 0
end;
1) t=8 с + 3мбайта/218бит=115440с Из это становиться понятно что если сжать и отправить то будет быстрее!
V=2048*100 бит/с=2^11 * 4*25=25*2^13 бит/с
F=1000*2^13 бит=8*125*2^13=125*2^16 бит
t=F/v=125*2^16/(25*2^13)=5*2^3=5*8=40 c
ответ 40 с