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

Какая последовательность символов будет содержаться в файле 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:= 'а' to 'р' do write(f,c);	{c: char}seek(f,10);read(f,c);truncate(f);seek(f,15);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^;

Переменные каких типов можно выводить в текстовый файл при помощи команд write() или writeln()

Переменные каких типов можно выводить в текстовый файл при помощи команд write() или writeln()?

Переменные каких типов можно выводить в текстовый файл при помощи команд write() или writeln()

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