Question

в двух файлах записано по 10 чисел, создать третий файл ,в котором чередуются числа первых двух файла. Написать в программе PascalABC

Answer 1

var
  f1, f2 :array [1..10] of integer;
  i :integer;
  input, output :text;
 
begin

  assign(input,'input1.txt');
  reset(input);
  for i:= 1 to 10 do 
    read(input,f1[i]);
  close(input);
 
  assign(input,'input2.txt');
  reset(input);
  for i:= 1 to 10 do 
    read(input,f2[i]);
  close(input);
 
  assign(output,'output.txt');
  rewrite(output);
  for i:= 1 to 10 do
  begin
    writeln(output,f1[i]);
    writeln(output,f2[i]);
  end;
  close(output);

end.

Answer 2

var
  input1, input2, output : Text;
  i, number : integer;
begin
  AssignFile(input1, 'input1.txt');
  AssignFile(input2, 'input2.txt');
  AssignFile(output, 'output.txt');
  Reset(input1);
  Reset(input2);
  Rewrite(output);
  for i := 1 to 10 do
  begin
    read(input1, number);
    write(output, number, ' ');
    read(input2, number);
    write(output, number, ' ');
  end;
  CloseFile(input1);
  CloseFile(input2);
  CloseFile(output);
  writeln('Готово');
end.