Ввести a, b и c и вычислить x= (a*b-c)/(2+a), если a+b больше 0 или a меньше 0, x=a-b в противном случае написать программу pascal
Ввести a, b и c и вычислить x= (a*b-c)/(2+a), если a+b>0 или a<0, x=a-b в противном случае написать программу pascal
Гость
Ответ(ы) на вопрос:
Гость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)
else write('x=',x);
end.
Не нашли ответ?
Похожие вопросы