Какая последовательность символов будет содержаться в файле f: file of char после выполнения следующего отрывка программы:

rewrite(f);for c:= 'а' to 'р' do write(f,c);	{c: char}seek(f,10);read(f,c);truncate(f);seek(f,15);write(f,c);

Какая последовательность символов будет содержаться в файле f: file of char после выполнения следующего отрывка программы:

rewrite(f);for c:= '0' to '9' do write(f,c);	{c: char}seek(f,5);read(f,c);write(f,c);seek(f,3);truncate(f);seek(f,9);write(f,c);

Какая последовательность символов будет содержаться в файле f: file of char после выполнения следующего отрывка программы:

rewrite(f);for c:= 'a' to 'p' do write(f,c);	{c: char}seek(f,10);read(f,c);write(f,c);seek(f,15);truncate(f);write(f,c);

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

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

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

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

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

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

Какое значение будет храниться в поле 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.

Какое значение будет храниться в поле 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.

Какой оператор нужно вставить вместо [???], чтобы приведенный ниже отрывок программы правильно создавал двусвязный линейный список, получая значения из непустого текстового файла f?

{type ssylka = ^spisok;      spisok = record znach: integer;                      next,prev: ssylka               end;var head,p: ssylka;}new(head);read(f,head^.znach);head^.prev:= nil;p:= head;while not eof(f) do   begin    new(p^.next);    read(f,p^.next^.znach);    [???];   end;p^.next:= nil;p:= tail;

Какие вызовы процедуры

procedure p(var a: byte; const b: char; x: real);

являются неправильными с точки зрения компилятора языка Pascal?