В паскале ABC в строке Сравнить длину первого слова и последнего слова

Question

В паскале ABC в строке Сравнить длину первого слова и последнего слова

Comments

Как сравнить знаю, помогите просто найти длинну последнего слова или как находить)

---

Как находить

---

да как найти длнну последнего слова

---

просто клачёк программы

---

Просто как найти длинну 1 и последних слов(всю прогу не пишите)

---

а введено два слова? или целое предложение?

---

предложение

Answer 1

Var s,t:string;
i,p,z,m,n,l:integer;
begin
readln (s);
p:=length(s);
for i:=p downto 1 do t:=t+s[i];
z:=pos(' ', t);
m:=pos(' ',s);
z:=p-z-m+1;
delete (s, m, z);
p:=length(s);
m:=pos(' ',s);
n:=m-1;
l:=p-1-n;
WRITELN;
writeln('Длина первого слова = ',n);
writeln('Длина второго слова = ',l);
end.

---

Comments

а downto это что?

---

если цикл идёт от большего числа к меньшему, то используется downto

---

а без него никак?

---

у меня таким способом создаётся ещё одна строка в которой всё символы стоят задом наперёд, для того что бы высчитать на каком месте стоит последний пробел(в новой строке он будет на первом месте), потом все не нужные слова удаляются остаются только первое и последнее слово, и считаем длину первого и последнего

---

пробел будет не на первом месте, а первый пробел после символов, узнаем его позицию => узнаем и позицию последнего пробела в первой строке