ввести a, b и c и вычислить x= (a*b-c)/(2+a), если a+b>0 или a<0, x=a-b в противном...

Question

ввести a, b и c и вычислить x= (a*b-c)/(2+a), если a+b>0 или a<0, x=a-b в противном случае написать программу pascal</p>

Answer 1

Uses crt;
var a, b, c, x, f:real;
begin
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
x:=(a*b-c)/(2+a);
f:=a-b;
if (a+b>0) or (a<0) then write('f=',f)                    <br>                           else write('x=',x);
end.