pascal语言求Sn=a+aa+aaa+…+aa…aaa(有n个a)之值,其中a是一个数字,a等于2。n由键盘输入。
答案:4 悬赏:0 手机版
解决时间 2021-12-17 22:12
- 提问者网友：浮克旳回音
- 2021-12-17 11:34
pascal语言求Sn=a+aa+aaa+…+aa…aaa(有n个a)之值,其中a是一个数字,a等于2。n由键盘输入。
最佳答案
- 五星知识达人网友：鸠书
- 2021-12-17 12:29
var
num : array[0..10000] of integer;
n,i : longint;
begin
readln(n);
for i := n downto 1 do
num[i] := 2*i; {处理加法}
for i := n downto 1 do
begin
if num[i] >= 10 then
begin
num[i-1] := num[i] div 10 + num[i-1];
num[i] := num[i] mod 10; {处理进位}
end;
end;
for i := 0 to n do
begin
if (i>0) then
write(num[i])
else if num[i] <> 0 then write(num[i]); {输出}
end;
writeln;
end.
此程序已过编译，已经是高精度的做法了，大数据秒出。
num : array[0..10000] of integer;
n,i : longint;
begin
readln(n);
for i := n downto 1 do
num[i] := 2*i; {处理加法}
for i := n downto 1 do
begin
if num[i] >= 10 then
begin
num[i-1] := num[i] div 10 + num[i-1];
num[i] := num[i] mod 10; {处理进位}
end;
end;
for i := 0 to n do
begin
if (i>0) then
write(num[i])
else if num[i] <> 0 then write(num[i]); {输出}
end;
writeln;
end.
此程序已过编译，已经是高精度的做法了，大数据秒出。
全部回答
- 1楼网友：迟山
- 2021-12-17 14:41
可能是键盘进水了，用干毛巾擦一下或者是放到太阳下晒，，，，，
再看看别人怎么说的。
- 2楼网友：荒野風
- 2021-12-17 13:10
uses math;
var n,s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+2*power(10,n+1-i)*i;
writeln(s);
end.
- 3楼网友：雾月
- 2021-12-17 12:46
n的范围是什么？
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯
| 正方形一边上任一点到这个正方形两条对角线的 |
| 阴历怎么看 ？ |