Question

1.     Дан файл целых чисел. Преобразовать его, удалив
нечетные числа. Порядок следования четных чисел сохранить.Решите пожалуйста !

Answer 1

var
  f: file of integer;
  i2, i, n: integer;

begin
  Assign(f, 'numbers.txt');
  Reset(f);
  writeln;
  i:=1;
  i2:=0;
  while not Eof(f) do
    begin
    read(f, n);
    i:=i+1;
    if n mod 2=0 then
      begin
      i2:=i2+1;
      if i2<i then
        begin
        Seek(f,i2-1);
        write(f,n);
        Seek(f,i-1)
        end
      end
    end;
  Seek(f,i2);
  Truncate(f);
  close(f)
end.

Внимание!!! Файл не является текстовым!!!

748d56ac2fe4e92bd48ae1992a0389d4.txt