В паскале. Вычислить элементы матрицы A={a i j }, {i=1, 2, .., n; j = 1, 2, .., m}. Произвести обработку элементов матрицы по указанным правилам, напечатать полученные значения. Напечатать исходную и результирующую матрицы.

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.