首页 > 试题广场 >

Program ex303; const NN = 7;

[填空题] 
Program ex303;
const
  NN = 7;
type
  Arr1 = array[0..30] of char;
var
  s : arr1;
  k, p : integer;
function fun(s : arr1; a : char; n : integer) : integer;
var
  j : integer;
begin
  j := n;
  while (a < s[j]) and (j > 0) do dec(j);
  fun := j;
end;
begin
  for k:=1 to NN do
    s[k] := chr(ord('A') + 2 * k + 1);
  k := fun(s, 'M', NN);
  writeln(k);
end.
输出：1
查看正确选项
添加回答

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

提交观点

问题信息

普及 Pascal 完善程序-Pascal 数学
上传者：牛客309901号
难度：
0条回答 422浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

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