Решите уравнение: |3x+2|=4 а)2/3 б)2/3; -2 в)-2 г)0

Получаем 2 уравнения:
1) 3x+2=4, где 3x+2>0, 3x>-2; x>-2/3
3x=2; x=2/3;
2/3>-2/3 - верно
2) -3x-2=4, где x<-2/3
3x=-6
x=-2,
-2<-2/3 - верно
2 корня: -2 и 2/3
ответ: б

1. Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?

ЛЕКЦИЯ

2. Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?

Две длины слова, т.е. 9+9=18

3. Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА',3,6).

Надо взять, начиная с третьего символа, шесть символов.

4. Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?

24 + 24 =48

5. Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7)); ?

ЭЛЕКТРО

Uses GraphABC;var f:boolean;//переменная для выхода из программы procedure KeyDown(Key: integer);beginif Key=VK_Return then f:=false;//если нажата Enter-меняем значение флагаWindow.Caption:='Программа завершена';end;var   x,y:integer;       r:real;beginf:=true;//программа включена на работуsetwindowsize(600,600);//квадратное окноWindow.Caption:='Для окончания нажмите Enter';lockDrawing;r:=1;x:=windowwidth-round(50*r);y:=round(50*r);repeatwhile (y<windowheight-round(50*r))and f do begin  r:=r+0.002;  Window.Clear;  sleep(1);  DrawCircle(x,y,round(50*r));  MoveTo(round(x+50*r),y);  Arc(x,y,round(10*r),220,320);  Arc(x,y,round(30*r),220,320);  DrawCircle(x-round(20*r),y-round(14*r),round(10*r));  DrawCircle(x+round(20*r),y-round(14*r),round(10*r));  y:=y+1;  x:=x-1;  Redraw;  OnKeyDown := KeyDown;//если нажмем Enter, сменится флаг на false  end;                  // и программа завершится  x:=windowwidth-round(50*r);y:=windowheight-round(50*r);while (y>=round(50*r)) and f do begin  Window.Clear;  sleep(1);  r:=r-0.002;  DrawCircle(x,y,round(50*r));  MoveTo(round(x+50*r),y);  Arc(x,y,round(10*r),220,320);  Arc(x,y,round(30*r),220,320);  DrawCircle(x-round(20*r),y-round(14*r),round(10*r));  DrawCircle(x+round(20*r),y-round(14*r),round(10*r));  y:=y-1;  x:=x-1;  Redraw;  OnKeyDown := KeyDown;  end;x:=windowwidth-round(50*r);y:=round(50*r); until  not f; end.