Какой стандартной функции или процедуре обработки строк эквивалентен следующий программный отрывок?

{s: string; i,k,t: byte}res:= ''; t:= length(s);if i > t then i:= t+1;for j:= 1 to i-1 do res:= res + s[j];for j:= i+k-1 to t do res:= res + s[j];

Какой стандартной функции или процедуре обработки строк эквивалентен следующий программный отрывок?

{s1,s2: string; i,j,t1,t2: byte}i:=0;res:= '';	t1:= byte(s1[0]);t2:= byte(s2[0]);if i > t2 then i:= t2+1;for j:= 1 to i-1 do res:= res + s2[j];for j:= 1 to t1 do res:= res + s1[j];for j:= i to t2 do res:= res + s2[j];

Какой стандартной функции или процедуре обработки строк эквивалентен следующий программный отрывок?

{s: string; i,k,t: byte}res:= ''; 	t:= byte(s[0]);if k+i > t+1 then k:= t-i;if i <= t  then for j:= i to i+k do res:= res + s[j];

Какую операцию реализует приведенный ниже программный отрывок?

for i:= 1 to N do  set_res[i]:= set1[i] or set2[i]

Какую операцию реализует приведенный ниже программный отрывок?

for i:= 1 to N do  set_res[i]:= set1[i] and set2[i]

Какую операцию реализует приведенный ниже программный отрывок?

for i:= 1 to N do  set_res[i]:= (set1[i] or set2[i])and not set2[i]

Какие переменные будут существовать во время выполнения подпрограммы 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;

Какие переменные будут существовать во время выполнения подпрограммы 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;

Какие переменные будут существовать во время выполнения подпрограммы 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;

Какое значение получит переменная 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.

Какое значение получит переменная 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.