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

Question

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

Comments

Да можно в другой

---

Хотя нет

---

В этом же файл нужно преобразовать

---

Сможешь решить?

---

Преподаватель вкурсе

---

Главное что бы код программы был правильный

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        begin
        Seek(f,i2-1);
        write(f,n);
        Seek(f,i-1)
        end
      end
    end;
  Seek(f,i2);
  Truncate(f);
  close(f)
end.

Внимание!!! Файл не является текстовым!!!
Скачать вложение Текст (TXT)