Ответы
Ответ дал:
0
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.
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.
Приложения:
![](https://st.uroker.com/files/9f9/9f9c2d162cad7e539474ff349cabc28f.png)
Ответ дал:
0
а downto это что?
Ответ дал:
0
если цикл идёт от большего числа к меньшему, то используется downto
Ответ дал:
0
а без него никак?
Ответ дал:
0
у меня таким способом создаётся ещё одна строка в которой всё символы стоят задом наперёд, для того что бы высчитать на каком месте стоит последний пробел(в новой строке он будет на первом месте), потом все не нужные слова удаляются остаются только первое и последнее слово, и считаем длину первого и последнего
Ответ дал:
0
пробел будет не на первом месте, а первый пробел после символов, узнаем его позицию => узнаем и позицию последнего пробела в первой строке
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад