Дописать две строчки в Pascal

[shrek=)]

Дописать две строчки в Pascal

Дана строка преобразовать ее, заменив группы рядом стоящих точек, одной точкой
вот что я придумал:

var
s:string;
i,j:integer;
begin
writeln ('Input string');
readln (s);
for i:=1 to length(s) do begin
j:=i+1;
if (s[i]='.') and (s[i+1]='.') then begin
delete(s,i,2);
insert('.',s,i);
end;
end;
write (s);
readln
end.

 

[Vladimir_S]

Не, Миш - не фонтан! Если точек больше двух, то Ваша программа оставляет две точки, а не одну. Да и j там явно лишний... Вот работающий вариант:

var
 s:string;
 i:integer;
begin
 writeln ('Input string');
 readln (s);
 i:=0;
 Repeat
  Inc(i);
  If i<Length(s) then
   if (s[i]='.') and (s[i+1]='.') then
    begin
     delete(s,i,1);
     Dec(i);
    end;
 Until i=Length(s);
 writeln(s);
 readln
end.

 

[shrek=)]

Спасибо большое!