Question

ПОМОГИТЕ С ПРОГРАММОЙ В ПАСКАЛЕ! 10 КЛАСС. Дан файл целых чисел, перепишите четные в один дополнительный файл, а нечетные в другой.

Answer 1

можешь взять числа и делить из на два с помощью команды

a:=a mod 2;

Если остаток =0 значит число четное и наоборот

Answer 2

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

pascalCopy code
program SplitNumbers;
var
  inputFile, evenFile, oddFile: text;
  number: integer;
begin
  // Открываем файл для чтения
  Assign(inputFile, 'input.txt');
  Reset(inputFile);

  // Открываем файлы для записи четных и нечетных чисел
  Assign(evenFile, 'even.txt');
  Assign(oddFile, 'odd.txt');
  Rewrite(evenFile);
  Rewrite(oddFile);

  // Читаем числа из входного файла и записываем их в соответствующие файлы
  while not eof(inputFile) do
  begin
    read(inputFile, number);
    if number mod 2 = 0 then
      writeln(evenFile, number)
    else
      writeln(oddFile, number);
  end;

  // Закрываем все файлы
  Close(inputFile);
  Close(evenFile);
  Close(oddFile);

  writeln('Четные и нечетные числа успешно разделены.');
end.

В этой программе предполагается, что у вас есть файл с именем input.txt, содержащий целые числа. Она открывает этот файл для чтения и создает два дополнительных файла: even.txt и odd.txt для записи четных и нечетных чисел соответственно. Числа из входного файла читаются по одному, и в зависимости от того, является ли число четным или нечетным, оно записывается в соответствующий файл.

После выполнения программы четные и нечетные числа будут записаны в отдельные файлы even.txt и odd.txt. Вы можете изменить имена файлов или пути к файлам в программе, если это необходимо.