Типизированный файл: переписать в файл g все компоненты файла f, изымая все цифры

@Inneska · Регистрация: 23.05.2015

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

Даны текстовый файл f. Переписать в файл g все компоненты файла f, изымая все цифры.

@ZX Spectrum-128 · 24.05.2015, 10:17

Pascal

{Даны текстовый файл f. Переписать в файл g все компоненты файла f,
изымая все цифры.}
var
  f,g:text;
  s:string;
  i:integer;
begin
  assign(f,'num1.txt');
  assign(g,'num2.txt');
  reset(f);
  rewrite(g);
  while not eof(f) do
    begin
      readln(f,s);
      for i:=length(s) downto 1 do
        if s[i] in ['0'..'9'] then
          delete(s,i,1);
      writeln(g,s);
    end;
  close(f);
  close(g);
end.

@Inneska 0 / 0 / 0 Регистрация: 23.05.2015 Сообщений: 27
		1
	Типизированный файл: переписать в файл g все компоненты файла f, изымая все цифры 23.05.2015, 16:32. Показов 1176. Ответов 1 Метки нет (Все метки) Даны текстовый файл f. Переписать в файл g все компоненты файла f, изымая все цифры. 0

Опции темы

Типизированный файл: переписать в файл g все компоненты файла f, изымая все цифры

Решение