Question

Помогите решить пожалуйста

Answer 1

Ответ:

Программа 1

program P1;

var x,y : real;

begin

write('x = '); readln(x);

if(x < 0) then

   y := 3 * x * x - 24

   else y := 7.5 * x + 56;

writeln(y);

end.

Программа 2

program P2;

var x,y : real;

begin

write('x = '); readln(x);

if(x < 0) then

   y := 3 * x * x - 24

   else if x > 0 y := 7.5 * x + 56;

writeln(y);

end.