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

Question

Информатика

Радислав

30 апреля, 22:33

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

+2

Ответы (1)

Знаете ответ на вопрос?

Семён · 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)

else write ('x=', x) ;

end.