Question

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

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.

Answer 2

а downto это что?

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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