текст задачи
удалить лишние пробелы в строке.
ниже исходный текст программы, но удаляет только два пробела и не больше, буду очень благодарен если поможете
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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: Пользуемся тегами!