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

Question

Информатика

Ника

3 июня, 04:49

ввести 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.