выдает - "ошибка листинга"
в чем дело?
Значит, ошибка листинга...
Ты на какой ответ надеешься вообще? Телепатов ищешь? Что за BS? Какая версия? Текст программы? Это все нам надо догадаться?
Ну, тогда ВСЕ блоки Var и Const удаляй, и первую строку каждой процедуры/функции/основной программы комментируй !\, а после последней строки тех же самых процедур - добавляй \\
не пашет..
У меня все отработало (даже на рекурсивной процедуре)... Если не хочешь показывать свою программу - извини, помочь тебе больше нечем...
uses
crt;
var
i,a : integer;
s : string;
begin
clrscr;
begin
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;
END.
Исходник как положено отформатировать можно было? Вот так запусти, все прекрасно рисуется:
я вот не пойму.
это мне надо в самой программе писать? или как?
если да, то не пашет - только что приверил.
Блин... Что ты за человек-то такой? Я, наверное, тоже проверил, как ты думаешь?
Смотри:
Эскизы прикрепленных изображений
всё. я разобрался. я изменения делал в самом файле *.pas (потому что при browse требовался файл с таким расширением). это меня и сбило с толку.
спасибо за помощь.