Дан текст. Удалить все слова, которые начинаются на одну и ту же букву

@pashasos3 · Регистрация: 06.05.2019

Дан текст. Удалить все слова, которые начинаются на одну и ту же букву.

@ZX Spectrum-128 · 09.05.2019, 09:31

Pascal

var
  s, s1: string;
  i, k: integer;
 
begin
  write('Введите строку: ');
  readln(s);
  //s := 'мама папа дед лес поп';
  writeln(s);
  s := s + ' ';
  i := 0;
  k := 1;
  while i < Length(s) do
  begin
    inc(i);
    if not (s[i] in [' ', ',', '-']) then 
      s1 := s1 + s[i]
       else 
    begin
      if s1[1] = s1[Length(s1)] then 
      begin
        //    writeln(s1);
        delete(s, k, Length(s1) + 1);
        //    writeln(s);
      end;  
      inc(k, Length(s1) + 1);
      s1 := '';
      //writeln(k);
    end;
  end;
  writeln(s);
end.

Добавлено через 35 секунд

Сообщение от pashasos3

начинаются на одну и ту же букву.

Наверное, начинаются и заканчиваются?

@pashasos3 0 / 0 / 0 Регистрация: 06.05.2019 Сообщений: 36
		1
	Дан текст. Удалить все слова, которые начинаются на одну и ту же букву 06.05.2019, 23:01. Показов 871. Ответов 1 Метки нет (Все метки) Дан текст. Удалить все слова, которые начинаются на одну и ту же букву. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы