Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на символ 1 и наоборот.

@mycroft · Регистрация: 30.06.2010

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

@Somebody · 30.06.2010, 21:57

Pascal

var
  fin, fout: Text;
  c: Char;
begin
  Assign(fin, 'input.txt');
  Assign(fout, 'output.txt');
  Reset(fin);
  Rewrite(fout);
  while not eof(fin) do
  begin
    Read(fin, c);
    case c of
      '0': c := '1';
      '1': c := '0';
    end;
    Write(fout, c);
  end;
  Close(fin);
  Close(fout);
end.

@mycroft 0 / 0 / 0 Регистрация: 30.06.2010 Сообщений: 8
		1
	Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на символ 1 и наоборот. 30.06.2010, 17:02. Показов 3615. Ответов 1 Метки нет (Все метки) Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на символ 1 и наоборот. 0

	30.06.2010, 21:57

Опции темы

Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на символ 1 и наоборот.

Решение