Длина пятого и длина последнего слова в строке - 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.

Оцени полезность:

15   голосов , оценка 3.8 из 5
Похожие ответы