Question

Срочно! Помогите написать программу в паскале с данной блок схемой.

Answer 1

var

   x,y:real;

begin

   readln(x);

   if x > 0 then

       y := sqr(x) * 4

   else if x < 0 then

       y := x*x - 8

   else

       y := 12 / (x - 1); (*здесь x-1, потому что на 0 делить нельзя*)

   writeln('x = ', x:2);

   writeln('y = ', y:2);

end.

Answer 2

Ошибка та же?

Answer 3

та же

Answer 4

Я прикрепил скриншот, где видно, что у меня все работает.

Answer 5

Компилятор у вас какой?

Answer 6

??