Дан файл f, компоненты которого являются целыми числами. найти количество четных чисел среди компонент.

Поскольку протестировать программу без файла нельзя, вот код, нужный файл. // pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); rewrite(f);   seqrandom(20,-50,50).foreach(t-> write(f,t));   f.close end. а теперь, собственно, решение type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); reset(f);   var k: =0;   var b: integer;   while not eof(f) do begin       read(f,b);       if b.iseven then k+=1       end;   f.close;   writeln('кол-во четных компонент файла равно ',k) end. и последнее - программа распечатки значений компонент файла. для контроля. type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); reset(f);   var b: integer;   while not eof(f) do begin read(f,b); print(b) end;   writeln;   f.close end.

Мб это 1024 кб (килобайта) кб это 1024 байта значит, 0,25мб=256кб=262144байт ответ: 262144 байта