Question

Дан файл целых чисел. Перепишите отрицательные нечетные элементы файла в один дополнительный файл, а четные положительные – в другой. ПАСКАЛЬ

Answer 1

Ответ:

программа и файлы на фото

Answer 2

Конечно, вот пример программы на Pascal, которая выполняет указанное действие:

pascalCopy code
program SplitNumbers;
var
  inputFile, oddNegativeFile, evenPositiveFile: text;
  num: integer;
begin
  // Открываем файлы для чтения и записи
  assign(inputFile, 'input.txt');
  assign(oddNegativeFile, 'odd_negative.txt');
  assign(evenPositiveFile, 'even_positive.txt');
  
  reset(inputFile);
  rewrite(oddNegativeFile);
  rewrite(evenPositiveFile);
  
  // Читаем числа из входного файла и записываем в соответствующие файлы
  while not eof(inputFile) do
  begin
    read(inputFile, num);
    if (num < 0) and (num mod 2 <> 0) then
      writeln(oddNegativeFile, num)
    else if (num > 0) and (num mod 2 = 0) then
      writeln(evenPositiveFile, num);
  end;
  
  // Закрываем файлы
  close(inputFile);
  close(oddNegativeFile);
  close(evenPositiveFile);
end.

Данный код открывает входной файл "input.txt" и два выходных файла "odd_negative.txt" и "even_positive.txt". Он читает числа из входного файла, а затем записывает отрицательные нечетные числа в файл "odd_negative.txt" и четные положительные числа в файл "even_positive.txt". В конце программа закрывает все файлы.

Убедитесь, что входной файл "input.txt" содержит целые числа, разделенные пробелами или новыми строками. После выполнения программы, файлы "odd_negative.txt" и "even_positive.txt" будут содержать соответствующие числа.