【a2a组合】...如下所示:1A2AB3ABC4AC5B6BC7C找出某个字母组合的...
答案:2 悬赏:0 手机版
解决时间 2021-02-09 11:08
- 提问者网友:树红树绿
- 2021-02-09 02:44
【a2a组合】...如下所示:1A2AB3ABC4AC5B6BC7C找出某个字母组合的...
最佳答案
- 五星知识达人网友:第四晚心情
- 2021-02-09 03:20
【答案】 var n,i,j,tot:longint;
f:array[0..27] of longint;
a:array[0..26] of char;
c:char;
begin
fillchar(f,sizeof(f),0);
readln(n);
for i:=n downto 1 do
begin
for j:=i+1 to n do f[i]:=f[i]+f[j];
inc(f[i]);
end;
tot:=0; j:=0; a[0]:='@';
while not eoln do
begin
inc(j); read(a[j]);
for i:=ord(a[j-1])-64+1 to ord(a[j])-64-1 do
tot:=tot+f[i];
inc(tot);
end;
writeln(tot);
end.
记得“文件”自己加,你是jsoi函授课程的吧,我也是的,这次题目太难了。还有,最好做一点改动。
f:array[0..27] of longint;
a:array[0..26] of char;
c:char;
begin
fillchar(f,sizeof(f),0);
readln(n);
for i:=n downto 1 do
begin
for j:=i+1 to n do f[i]:=f[i]+f[j];
inc(f[i]);
end;
tot:=0; j:=0; a[0]:='@';
while not eoln do
begin
inc(j); read(a[j]);
for i:=ord(a[j-1])-64+1 to ord(a[j])-64-1 do
tot:=tot+f[i];
inc(tot);
end;
writeln(tot);
end.
记得“文件”自己加,你是jsoi函授课程的吧,我也是的,这次题目太难了。还有,最好做一点改动。
全部回答
- 1楼网友:罪歌
- 2021-02-09 04:34
好好学习下
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯