Question

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран все слова, содержащие три буквы. Если таких слов нет, то вывести сообщение об этом.

Answer 1

program str;
uses crt;
var
   s: string;
   n,nsl,ksl,kol,i:byte;
begin
  writeln('Введите строку: ');
  readln(s);
  s:=' '+s;
  n:=length(s);
 
  for i:=1 to n do
  begin
      if (s[i]=' ') and (s[i+1]<>' ') and (s[i+1]<>'.') then
         nsl:=i+1;
 
      if (s[i]<>' ') and (s[i]<>'.') and ((s[i+1]='.') or (s[i+1]=' ')) then
      begin
         ksl:=i;
         if ((ksl-nsl)+1=3) then kol:=kol+1;
      end;
  end;
  
  writeln('Слов из 3-х букв ',kol);
 
end.