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

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

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

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

@kot96 · 23.05.2015, 17:39

Pascal

(*Даны текстовый файл f. Переписать в файл
 g все компоненты файла f, изымая все цифры.*)
program ex;
var f1,f2:text;
var s:string;
    c:char;
    k:integer;
begin
assign(f1,'text1.txt');
assign(f2,'text2.txt');
reset(f1);
rewrite(f2);
while not(eof(f1)) do 
 while not (eoln(f1)) do
 begin
 read(f1,c);
 if (ord(c)<48)or(ord(c)>57) then write(f2,c);
 end;
 close(f1);
 close(f2);
writeln(k);
end.

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

Опции темы

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

Решение