首页 > 试题广场 >

var a,t:string; i,j:inte...

[填空题] 
var a,t:string;
   i,j:integer;
begin
   a:='morning';
   j:=1;
   for i:=2 to 7 do
      if a[j]<a[i] then
         j:=i;
   j:=j-1;
   for  i:=1 to j do write(a[i]);
end.

输出：1
查看答案及解析
添加回答

这道题你会答吗？花几分钟告诉大家答案吧！

提交观点

问题信息

普及 Pascal 完善程序-Pascal 字符串
上传者：牛客309901号
难度：
0条回答 1544浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号