作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/28 02:19:05
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.