Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.