作业帮pascal 程序 读入一个句子,单词之间用空格隔开 输出最长的单词,并输出这个单词的长度（使用字符串）
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/20 03:31:48
pascal 程序 读入一个句子,单词之间用空格隔开 输出最长的单词,并输出这个单词的长度（使用字符串）
pascal 程序 读入一个句子,单词之间用空格隔开 输出最长的单词,并输出这个单词的长度
（使用字符串）
pascal 程序 读入一个句子,单词之间用空格隔开 输出最长的单词,并输出这个单词的长度（使用字符串）
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.