Question

pascal 程序 读入一个句子，单词之间用空格隔开 输出最长的单词，并输出这个单词的长度

（使用字符串）

Answer 1

var
s:string;
i,j,m1,m2:integer;
begin
readln(s);
m2:=0;
m1:=0;
for i:=1 to length(s) do
begin
if s[i]=' ' then
begin
for j:=i to length(s) do
if s[j]=' ' then
begin
if (j-i)>(m2-m1) then
begin
m1:=i;
m2:=j;
end;
end;
end;
end;
for i:=m1+1 to m2-1 do
write(s[i]);
write(' ',m2-m1-1);

end.

Answer 2

var st:string;
i,j,k,x,y,z,ans:integer;
begin
readln(st);
x:=length(s);
for i:=1 to x do begin
if st[i]<>' ' then inc(y) else beign
if st>ans then ans:=y;
y:=0;
end;
end;
writeln(ans);
end.

Answer 3

var
s:string;
i,s,ans:integer;
begin
readln(s);
ans:=0;
s:=0;
for i:=1 to length(s) do
begin
if s[i]<>' ' then inc(s)
else beign
if s>ans then ans:=s;
s:=0;
end;
end;
writeln(ans);
end.