В ЧЕМ ОШИБКА? program ABC; var F,x:real; var y:integer; begin readln(x,y); If x>=0 and...

Question

В ЧЕМ ОШИБКА? program ABC; var F,x:real; var y:integer; begin readln(x,y); If x>=0 and y>0 then F:=(sqrt(x/y))*(5*(y*y)-x) else F:=(3.3*x-y)/(7*x*y); writeln('F=',F); end.

---

Comments

(x>=0) and (y>0) - надо так писать. А прочее я даже смотреть не стану.

---

cgfcb

---

спаасибо,помогло

Answer 1

var

   F, x, y: real;

begin

   readln(x, y);

   if (x >= 0) and (y > 0) then  

       F := sqrt(x / y) * (5 * y * y - x)  

   else  

       F := (3.3 * x - y) / (7 * x * y);

   writeln('F=', F);

end.