[vladimir007]

текст задачи
удалить лишние пробелы в строке.

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

Код:

var str:string;
i:integer;
begin
writeln('vvedite stroku s bolshim kol probelov');
readln(str);
begin
for i:=1 to length(str) do
if (str[i]=' ') and (str[i+1]=' ') then
delete(str,i,1);
end;
begin
write('novii text=', str);
readln;
end;
end.

Admin: Пользуемся тегами!

[BoRoV]

Попробуй вместо

Код:

if (str[i]=' ') and (str[i+1]=' ') then
delete(str,i,1);

написать

Код:

if (str[i]=' ') then
  while (str[i+1]=' ') do
    delete(str,i,1);

[vladimir007]

СПАСИБО!!)))) благодарю)))