В строке найти слова, начинающиеся на буку «л», заканчивающиеся на букву «о», а третья буква в которых «т»

@ahserj · Регистрация: 14.01.2013

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

В строке найти слова, начинающиеся на буку «л», заканчивающиеся на букву «о», а третья буква в которых «т».

@Zhexon · 15.01.2013, 12:45

Pascal

const Ch1='л'; Ch2='т'; Ch3='о'; MinLen=4;
      razd=[' ',',','.','!','?'];
var
  s,s1 : string;
  i,k : byte;
Begin
  Write('Введите строку : '); readln(s);
  if Length(s)<MinLen then writeln('Очень короткая строка')
  else begin
    writeln('слова по условию : '); s:=s+'.'; s1:=''; k:=0;
    for i:=1 to Length(s) do begin
      if s[i] in razd then begin
        if s1<>'' then begin
          if (s1[1]=Ch1) and (s1[3]=Ch2) and (s1[Length(s1)]=Ch3) then begin
            inc(k); writeln(k,': ',s1);
          end;
          s1:='';
        end;
      end else s1:=s1+s[i];
    end;
  end;
  if k=0 then writeln('не найдены.');
  readln;
End.

@ahserj 0 / 0 / 0 Регистрация: 14.01.2013 Сообщений: 11
		1
	В строке найти слова, начинающиеся на буку «л», заканчивающиеся на букву «о», а третья буква в которых «т» 14.01.2013, 20:24. Показов 1798. Ответов 1 Метки нет (Все метки) В строке найти слова, начинающиеся на буку «л», заканчивающиеся на букву «о», а третья буква в которых «т». 0

	15.01.2013, 12:45

В строке найти слова, начинающиеся на буку «л», заканчивающиеся на букву «о», а третья буква в которых «т»

Решение