Текстовый файл содержит целые числа, создать другой файл, содержащий элементы, значение которых нечетно

@SpinnoZa · Регистрация: 28.04.2014

Author24 — интернет-сервис помощи студентам

Текстовый файл содержит целые числа, из элементов исходного файла
создать другой файл, содержащий элементы, значение которых нечетно.

@Cyborg Drone · 01.07.2014, 07:18

Каждое число в отдельной строке файла.

Pascal

var f, g: text;
    s: string;
    n, e: integer;
begin
  assign(f, 'c:\1.txt');
  reset(f);
  assign(g, 'c:\2.txt');
  rewrite(g);
  while not(eof(f)) do
    begin
      readln(s);
      val(s, n, e);
      if (e > 0)
        then break
        else if odd(n) then writeln(g, s)
    end;
  close(f);
  close(g);
  if e > 0
    then writeln('Ошибка во входном файле. Выходной файл содержит не все числа.')
    else writeln('Завершено.');
  readln
end.

@SpinnoZa 1 / 1 / 0 Регистрация: 28.04.2014 Сообщений: 39
		1
	Текстовый файл содержит целые числа, создать другой файл, содержащий элементы, значение которых нечетно 01.07.2014, 01:07. Показов 1876. Ответов 1 Метки нет (Все метки) Текстовый файл содержит целые числа, из элементов исходного файла создать другой файл, содержащий элементы, значение которых нечетно. 0

	01.07.2014, 07:18

Текстовый файл содержит целые числа, создать другой файл, содержащий элементы, значение которых нечетно

Решение