Дан фрагмент программы:

var Buf:array[1..10] of single;   f: file;begin  assign(f, 'bfile.dat'); reset(f, 4);  Blockread(f, Buf, 2); …    

Сколько байтов будет считано из файла?

Дан фрагмент программы:

var Buf:array[1..10] of single;   f: file;begin  assign(f, 'bfile.dat'); reset(f, 4);  Blockread(f, Buf, 5); …    

Сколько байтов будет считано из файла?

Дан фрагмент программы:

var Buf:array[1..100] of real;   f: file;begin  assign(f, 'bfile.dat'); reset(f, 30);  Blockread(f, Buf, 3); …    

Сколько байтов будет считано из файла?

Дан фрагмент программы:

var Buf:array[1..100] of integer;   f: file;begin  assign(f, 'bfile.dat'); reset(f, 10);  Blockread(f, Buf, 3); …    

Сколько байтов будет считано из файла?

Дан фрагмент программы:

var Buf:array[1..20] of word;   f: file;begin  assign(f, 'bfile.dat'); reset(f, 6);  Blockread(f, Buf, 6); …    

Сколько байтов будет считано из файла?

Дан фрагмент программы:

var Buf:array[1..100] of integer;   f: file;begin  assign(f, 'bfile.dat'); reset(f, 10);  Blockread(f, Buf, 4); …    

Сколько байтов будет считано из файла?

Дан фрагмент программы:

var Buf:array[1..100] of real;   f: file;begin  assign(f, 'bfile.dat'); reset(f, 30);  Blockread(f, Buf, 2); …    

Сколько байтов будет считано из файла?

Дан фрагмент программы:

var Buf:array[1..20] of word;   f: file;begin  assign(f, 'bfile.dat'); reset(f, 6);  Blockread(f, Buf, 4); …    

Сколько байтов будет считано из файла?

Что будет выведено на экран в результате работы программы

var i:word; t:single;    begin       i := 2; t := 2;       write ('/',  t:4:1, i:3, i, '/');    end.    

Что будет выведено на экран в результате работы программы

var i:word; t:single;    begin       i := 1; t := 5;       write ('/',  t:3:1, i, i:2, '/');    end.    

Что будет выведено на экран в результате работы программы?

var a: string;Procedure P( var a: char; d: char);begin   a:='в'; d:='д';end;begin   a:='глаз';   P(a[1],a[4]);   write (a)end.