Составить программу удаления лишних пробелов в строке

@RED_BES · Регистрация: 05.06.2012

Author24 — интернет-сервис помощи студентам

@Владимир_ВМ · 25.06.2012, 23:26

Pascal

const symbol=['!',',','?','.',':',';'];
var
str:string;
i,j,k,spacebar,sd,d:integer;
begin
writeln('Ââåäèòå ñòðîêó');
read(str);
for j:=1 to length(str) do
begin
  if str[j]in symbol then
            begin
                 sd:=j;
                 d:=d+1;
            end;
  for i:=1 to length(str) do
         if (str[i]=' ') and (str[i+1]=' ') then
            begin
                 k:=k+1;
                 spacebar:=i;
            end
         else
         if (str[i]<>' ') and (k>=1)  then
            begin
                 delete(str,spacebar-k+1,k);
                 k:=0;
            end;
end;
if d>0 then
delete(str,sd-d+1,d);
write(str);
end.

@RED_BES 0 / 0 / 0 Регистрация: 05.06.2012 Сообщений: 27
		1
	Составить программу удаления лишних пробелов в строке 25.06.2012, 21:12. Показов 2511. Ответов 1 Метки нет (Все метки) Составить программу удаления лишних пробелов в строке 0

	25.06.2012, 23:26

Опции темы

Составить программу удаления лишних пробелов в строке

Решение