текст задачи
удалить лишние пробелы в строке.
ниже исходный текст программы, но удаляет только два пробела и не больше, буду очень благодарен если поможете
Код:
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: Пользуемся тегами!