Получить в файле g все четные компоненты файла f, а в файле h - все нечетные - Pascal ABC - Ответ 14410665

program Project1;
 
uses
  CRT;
const
  filename1 = 'filef.dat';
  filename2 = 'fileg.dat';
  filename3 = 'fileh.dat';
 
type
  TfileInt = file of integer;
 
 
procedure InfoOutFile(var ff: TfileInt);
{Процедура для вывода информации из файла в консоль}
var
  a: integer;
begin
  reset(ff);
  while not eof(ff) do
    begin
      read(ff,a);
      Write(a,' ');
    end;
  Close(ff);
end;
 
 
var
  f,g,h: TfileInt;   { Файловые переменные}
  i: integer;        { Вспомогательная переменная для организации циклов}
  a: integer;        { Промежуточная переменная для переноса информации}
begin
  clrscr;
  assign(f,filename1);
  assign(g,filename2);
  assign(h,filename3);
  rewrite(f);
  for i:= 1 to random(20)+10 do
    begin
      a:= random(199)-99;
      write(f,a);
    end;
  Close(f);
  writeln('Исходный файл:');
  InfoOutFile(f);
  reset(f);
  rewrite(h);
  rewrite(g);
  while not eof(f) do
    begin
      read(f,a);
      if a mod 2 = 0 then
        write(g,a)
      else
        write(h,a);
    end;
  close(f);
  close(g);
  close(h);
  writeln;
  writeln('Файл четных чисел:');
  InfoOutFile(g);
  writeln;
  writeln('Файл нечетных чисел:');
  InfoOutFile(h);
  readln;
end.