Какое значение будет храниться в поле a записи r1 после выполнения следующего блока?

var a: integer;    r1: record a: byte;               ...        end;    r2: record a: shortint;               ...        end;begin a:= 0; with r1 do   begin   r2.a:= -10;   with r2 do    begin a:= 100;          r1.a:= -a;    end  end; a:= 100;end.

Какое значение будет храниться в поле a записи r2 после выполнения следующего блока?

var a: integer;    r1: record a: longint;               ...        end;    r2: record a: byte;               ...        end;begin a:= 0; with r2 do   begin   a:= 10;   with r1 do    begin a:= -r2.a;          r2.a:= 100;    end;   a:= r1.a;  end; a:= -100;end.

Какое значение будет храниться в поле a записи r1 после выполнения следующего блока?

var a: longint;    r1: record a: word;               ...        end;    r2: record a: integer;               ...        end;begin a:= 0; with r1 do   begin   a:= 1000;   with r2 do    begin a:= 1000;          r1.a:= -a;    end;   r2.a:= -100;  end; a:= 100;end.

Какое значение будет храниться в переменной а:shortint после выполнения следующего программного отрывка?

{b: char; p: ^shortint}b:= ‘Б’;p:= addr(b);a:= p^;

Какое значение будет храниться в переменной а:integer после выполнения следующего программного отрывка?

{b: string; p: ^integer}b:= ‘БББ’;p:= addr(b[1]);a:= p^;

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

program prog;var a: byte;procedure p1; var a: byte; begin  ... end;procedure p2; function f: boolean;  var a: byte;  begin   ...  end; var a: byte; begin  ... end;

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

program prog;var a: byte;procedure p1; function f: boolean;  var a: byte;  begin   ...  end; var a: byte; begin  ... end;procedure p2;var a: byte; begin  ... end;

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

program prog;var a: byte;procedure p1; var a: byte; begin  ... end;procedure p2; function f: boolean;  var a: byte;  begin   ...  end; var a: byte; begin  ... end;

Какое значение будет храниться в переменной а:integer после выполнения следующего программного отрывка?

{b: string; p: ^word}b:= ‘ААББВВГГДД’;p:= addr(b[7]);a:= p^;

Какое значение получит переменная a после выполнения такой программы?

var a: byte;proc p1(k: byte);proc p2(var t: byte); begin t:= t*2 end;var a: byte; begin a:= 1;       k:= 5;       p2(a); end;begin a:= 10; p1(a);end.

Какое значение получит переменная a после выполнения такой программы?

var a: byte;proc p1(var k: byte);proc p2(t: byte); begin t:= t*2 end;var a: byte; begin a:= 1;       k:= 5;       p2(k); end;begin a:= 10; p1(a);end.