Question

Надо решить эту задачу в Паскале, напишите решение пожалуйста
​

Answer 1

program allliyagilmanova666;

const n = -20;

         m = 0;

         l = 10;

var x, y: double;

     proverka: byte;

begin

proverka := 1;

repeat

 writeln('Введите х:');

 readln(x);

 if (x < -20) then y := 2 * x + 1

  else if ((x >= n) and (x <= m)) then y := 4 * x + 8

   else if ((x > m) and (x < l)) then y := 0

    else y := sqr(x) + 2;

 writeln('При х = ', x : 0 : 2, ' y = ', y : 0 : 2);

 writeln('Если хотите продолжить работу введите 1, в противном случае - 0.');

 readln(proverka);

until (proverka = 0);

end.