Составить программу вычисления значения функций в зависимости от интервала у=1+3х, при х< -2 1+xв квадрате, при -2< _x< _2 (x+1), при x> 2

Var x,y: real; begin writeln ('введите x'); readln (x); if (x< -2) then y: =1+3*x; if (x> =-2) and (x< =2) then y: =sqr(1+x); //по условию -2< _x< _2 я подумал, что _ значит =, если нет - удали равно здесь (x> =-2) and (x< =2) if (x> 2) then y: =x+1; writeln ('значение функции = ',y); end.

ответ: с техникой обращаться бережно: не стучать по мониторам, не стучать мышкой о стол, не стучать по клавишам клавиатуры

2. при возникновении неполадок: появлении изменений в функционировании аппаратуры, самопроизвольного её отключения необходимо немедленно прекратить работу и сообщить об этом преподавателю

3. не пытаться исправить неполадки в оборудовании самостоятельно

4. выполнять за компьютером только те действия, которые говорит преподаватель

5. контролировать расстояние до экрана и правильную осанку

6. не допускать работы на максимальной яркости экрана дисплея

7. в случае возникновения нештатных ситуаций сохранять спокойствие и чётко следовать указаниям преподавателя.

объяснение:

// счет разрядов от нуля справа налево: var   n: longint;   a,b,k,d: integer; begin   write('введите натуральное число длиной 6-9 цифр: ');   read(n);   k: =0;   while n> 0 do begin       d: =n mod 10;       if k=2 then a: =d       else           if k=5 then b: =d;       inc(k);       n: =n div 10       end;   writeln('ср. арифм. разрядов 2 и 5 равно ',(a+b)/2) end. пример введите натуральное число длиной 6-9 цифр: 123456789 ср. арифм. разрядов 2 и 5 равно 5.5