Дан символьный файл f. Записать в файл g с сохранением порядка следования

@CyberSosed · Регистрация: 30.11.2017

Дан символьный файл f. Записать в файл g с сохранением порядка следования те символы файла f, которым в этом файле непосредственно предшествует буква 'f’ (латинская).

Контрольный пример:
Исходные данные:
Имя исходного файла: 'Input1.txt’
Содержимое файла Input1.txt:
tfbfcottffbbafccoobbafbaf
Имя результирующего файла: 'Output1.txt’
Ожидаемый результат:
Содержимое файла Output1.txt: bcfbcb

@Joy · 18.05.2018, 09:40

Pascal

var
  f,g:text;
  c,c1:char;
begin
  assign(f,'Input1.txt');
  reset(f);
  assign(g,'Output1.txt');
  rewrite(g);
  c:=#0;
  while not eof(f) do begin
    c1:=c;
    read(f,c);
    if c1='f' then write(g,c);
  end;
  close(f);
  close(g);
end.

@CyberSosed 0 / 0 / 0 Регистрация: 30.11.2017 Сообщений: 27
		1
	Дан символьный файл f. Записать в файл g с сохранением порядка следования 17.05.2018, 19:01. Показов 1858. Ответов 1 Метки нет (Все метки) Дан символьный файл f. Записать в файл g с сохранением порядка следования те символы файла f, которым в этом файле непосредственно предшествует буква 'f’ (латинская). Контрольный пример: Исходные данные: Имя исходного файла: 'Input1.txt’ Содержимое файла Input1.txt: tfbfcottffbbafccoobbafbaf Имя результирующего файла: 'Output1.txt’ Ожидаемый результат: Содержимое файла Output1.txt: bcfbcb 0

Опции темы

Дан символьный файл f. Записать в файл g с сохранением порядка следования

Решение