Каков будет результат выполнения программы

Type Point=^Ct;

Ct=Record

I:integer;

P:Point;

End;

Var Q,R:^Point;

Begin

Q^:=R^;

End.

1) Q указывает на ту же переменную, что и R;

2) на место указанной переменной [20| ], указывавшей на 30, заслана пере­менная [15| ], указывающая на 25;

3) на место ссылки на компоненту [30| ] заслана ссылка на компоненту [25| ], поле целого значения не изменилось;

4) на место 20 заслано 15, поле указателя не изменилось.

31. Каков будет результат выполнения программы:

Type Point=^Ct;

Ct=Record I:integer; P:Point End;

Var Q,R:^Point;

Begin Q^.P:=R^.P End.

 

1) Q указывает на ту же переменную, что и R;

 

2) на место указанной переменной [20| ], указывавшей на 30, заслана пере­менная [15| ], указывающая на 25;

 

3) на место ссылки на компоненту [30| ] заслана ссылка на компоненту [25| ], поле целого значения не изменилось;

 

4) на место 20 заслано 15, поле указателя не изменилось.

32. Каков будет результат выполнения программы:

Var n, i: integer;

Begin

n:=0;

For i:=l to 10 do n:=n+i

 end.

1) 55;        2) 10;        3) 25;        4) 225.

Что делают операторы

Stackp=^Stackcomp;

Stackcomp=Record

I:Integer; P:Stackp

 End;

Var NP, L:Stackcomp;

 Begin NP^.P:=L^.P; L^.P:=NP End.

1) запись новой компоненты в очередь; 2) запись новой компоненты в стек;

3) удаление компоненты из очереди;   4) удаление компоненты из стека.