В файле имеется предложение удалить из него все пробелы и записать результат в др. файл

@snezhok · Регистрация: 13.04.2013

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

3. В файле имеется предложение удалить из него все пробелы и записать результат в др. файл.

@REZ@K · 14.04.2013, 10:23

Pascal

var
a,b:text;
st:string;
p:integer;
begin
assign (a,'input.txt');
assign (b,'output.txt');
reset (a);
rewrite (b);
read (a,st);
p:=pos (' ',st);
while p<>0 do
begin
delete (st,p,1);
p:=pos (' ',st);
end;
write (b,st);
close (a);
close (b);
end.

@snezhok 0 / 0 / 0 Регистрация: 13.04.2013 Сообщений: 4
		1
	В файле имеется предложение удалить из него все пробелы и записать результат в др. файл 13.04.2013, 11:45. Показов 1231. Ответов 1 Метки нет (Все метки) 3. В файле имеется предложение удалить из него все пробелы и записать результат в др. файл. 0

	14.04.2013, 10:23

В файле имеется предложение удалить из него все пробелы и записать результат в др. файл

Решение