СТРОКИ.ТУРБО-ПАСКАЛЬ

[Анастасия***]

Дана строка символов .В каждом слове удалить последнюю букву.Найти длину 3-его слова.

[Mad_Cat]

Дана строка символов .В каждом слове удалить последнюю букву.

чем отделяются слова друг от друга?

[Stilet]

Изучай пример:http://www.programmersforum.ru/showt...369#post398369

[Анастасия***]

Там не указано,чем отделяется,я думаю,пробелом

[Mad_Cat]

я думаю,пробелом

{Дана строка символов .В каждом слове удалить последнюю букву.Найти длину 3-его слова.}
var
s:string;
c:integer;
Len:integer;
res,buf:string;
begin
readln(s);
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
while pos('  ',s)<>0 do delete(s,pos('  ',s),1);
s:=s+' '; c:=0; Len:=0;
while s<>'' do begin
c:=c+1;
buf:=copy(s,1,pos(' ',s)-1);
if c=3 then Len:=length(buf);
Delete(s,1,pos(' ',s));
Delete(buf,length(buf),1);
res:=res+buf+' ';
end;
delete(res,length(res),1);
writeln(res);
Writeln(Len);
Readln;
end.

Result:

Здравствуйте я говорю вам здравствуйте
Здравствуйт говор ва здравствуйт
6

[Анастасия***]

Спасибо большоеОчень благодарна

[Анастасия***]

а что такое Len?

[Arigato]

Название переменной.

[Анастасия***]

а через цикл со счётчиком не знаете как делать?