печать третьего слова в строке

[shelest]

подскажите как вывести на печать третье слово в строке, получается только последнее

program slovo;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type str30=string[30];
var
s:str30;
begin
writeln('vvedite stroku');
readln(s);
begin
While pos(' ',s)<> 0 do Delete(s,1,pos(' ',s));
end;
writeln(s);
readln
end.

[Базиля]

Циклом записывай в строку, после второго пробела(или запятой), слово.

[NiCola999]

2Базиля, а если перед первым словом стоит пробел или между словами много пробелов? Тогда ваш вариант не сработает
А что если так:
цикл по всей строке, если символ не равен пробелу(то есть мы нашли слово), увеличиваем счетчик слов, далее пока не встретим следующий пробел(конец слова) увеличиваем индекс символа

на Си это будет выглядеть примерно так

#include <stdio.h>
#include <string.h>

int main(void)
{
     char str[] = "  abcd bcde    efg  ";
     int i, countWord=0;
     char* tmp="";
     for(i=0; i<strlen(str); i++)  {
            if(str[i] != ' '){
               if(countWord==3)  {
                      while(str[i] != ' ') printf("%c", str[i++]);
                      break;
               }
                countWord++;
                while(str[i] != ' ') i++;
            }
     }
     
     return 0;
}

писал код прямо тут, но уверен, что будет работать

[dampirik]

к продолжению

Базиля

Если пробел, смотрим на второй знак, если пробел дальше..и так до слова) используй регулярные выражения...

[evg_m]

получается только последнее

While pos(' ',s)<> 0 do Delete(s,1,pos(' ',s));

прежде чем удалять считай сколько слов ты уже удалил
k:=0;
While pos(' ',s)<> 0 do begin Delete(s,1,pos(' ',s)); k:=k+1; end;

P.S. это только подсказка почему, а как додумай сам

подсказка оператор break вызывает завершение цикла