主题：请帮助初学者解题(须有过程说明,先谢了)
bingran33
[专家分：40] 发布于 2007-11-03 00:59:00
789789789...789(共n组789),除以79的商和余数
回复列表 （共3个回复）
沙发
shisutianxia [专家分：630] 发布于 2007-11-03 14:45:00
互相帮助，又有积分，何乐而不为
program jie;
var bchu,i,j,n:integer;
a:array[1..1000] of integer;
begin
readln(n);
i:=0;
fillchar(a,sizeof(a),0);
repeat
a[i+1]:=7;
a[i+2]:=8;
a[i+3]:=9;
i:=i+3;
until (i=n*3);
i:=3;bchu:=789;
write('=');
repeat
write(bchu div 79);
bchu:=bchu mod 79;
if i<3*n then bchu:=bchu*10+a[i+1];i:=i+1;
until (i>=3*n)and(bchu<79);
write('----',bchu);
end.
板凳
shisutianxia [专家分：630] 发布于 2007-11-03 14:49:00
其实，这只是高精度除法的简化，认真向就可以得出答案（我用N=1测试了，你再看看）
3 楼
bingran33 [专家分：40] 发布于 2007-11-03 23:57:00
多谢楼上的解题,其实还没有学到数组,能不能只用循环做?
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 请帮助初学者解题(须有过程说明,先谢了)