Преобразовать строку, удаляя однобуквенные слова и лишние пробелы

@mgt · Регистрация: 28.09.2013

Дана символьная строка, содержащая предложение, заканчивающееся точкой. Преобразовать её, удаляя однобуквенные слова и лишние пробелы.

@Joy · 03.12.2015, 07:47

Pascal

var
  s,Sout,t:string;
  i:integer;
begin
  write('введите строку:');readln(s);
  s:=s+' ';
  Sout:='';
  for i:=1 to length(s) do
    if s[i]=' ' then begin
      if (length(t)=1) and (t<>'.') then t:=' ';
      SOut:=SOut+t+' ';
      t:='';
    end
    else t:=t+s[i];
  while pos('  ',SOut)>0 do delete(SOut,Pos('  ',SOut),1);
  writeln('полученная строка:',Sout);
  readln;
end.

@mgt 0 / 0 / 0 Регистрация: 28.09.2013 Сообщений: 20
		1
	Преобразовать строку, удаляя однобуквенные слова и лишние пробелы 02.12.2015, 23:08. Показов 1100. Ответов 1 Метки нет (Все метки) Дана символьная строка, содержащая предложение, заканчивающееся точкой. Преобразовать её, удаляя однобуквенные слова и лишние пробелы. 0

Опции темы

Преобразовать строку, удаляя однобуквенные слова и лишние пробелы

Решение