Длина пятого и длина последнего слова в строке - Pascal ABC
Формулировка задачи:
Как определить длину пятого слова в строке и длину последнего слова в строке.
Решение задачи: «Длина пятого и длина последнего слова в строке»
textual
Листинг программы
var s:string;
i,n,k,d:byte;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
write('Введите номер слова n=');
readln(n);
k:=0;
d:=0;
for i:=1 to length(s) do
if s[i]<>' ' then d:=d+1
else if(s[i]=' ')or(i=length(s)) then
begin
k:=k+1;
if k=n then writeln('Длина ',n,' слова=',d);
d:=0;
end;
if k<n then writeln('В строке нет ',n,' слов');
writeln('Длина последнего слова=',d);
end.