Заменить многоточие точкой

@vaness · Регистрация: 18.02.2010

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

Дана строка s, содержащая менее чем 200 символов. Преобразовать данную последовательность символов, заменив каждую из групп рядом стоящих трех точек (т.е. многоточие) одной точкой. Использовать стандартные процедуры и функции в действиях над строками.Можно ли по другому решить?

Pascal

var
a:string;
i:integer;
begin
writeln('vvedite stroku');
readln(a);
for i:=length(a)-2 downto 1 do
if copy(a,i,3)='...'then delete(a,i,2);
writeln('resultat:');
writeln(a);
readln;
end.

@Puporev · 11.03.2010, 22:07

Pascal

1 2	while pos('...',s)>0 do delete(s,pos('...'),2);

	11.03.2010, 22:07