Bs Опции

[Connected]

выдает - "ошибка листинга"
в чем дело?


Сообщение отредактировано: Connected - 5.04.2007 17:52

[volvo]

Исходник как положено отформатировать можно было? Вот так запусти, все прекрасно рисуется:

Код

!\ begin
  clrscr;
  readln(s);
    for i:=1 to length(s) do begin
      if (s[i]=' ') and (s[i+1]=' ') then begin
        a:=i;
        repeat
          delete(s,a,1);
        until (s[a+1]<>' ');
      end;
    end;

  writeln(s);
  readln;

end.
\\