pascal 100个7组成的百位自然数,被13除后,问余数是几?商数中各位数字之和是多少?

4074822478660348 1年前他留下的回答 已收到1个回答

张自兵 网友

该名网友总共回答了19个问题，此问答他的回答如下：采纳率：94.7%

6个7组成的六位数777777除以13,商是59829
所以100个7,可以每6个分为一组,看最后余几个7,就用余下的几个7除以13,求出最终的余数.
const n=100; //设定7的个数
var z,m,shu,i,yushu,shang,shuzihe,mowei:integer;
begin
writeln('你输入的是',n,'个7组成的多位数');
z:=n div 6; //分为几组
m:=n mod 6; //剩余几个7
if m=0 then shu:=0 else shu:=7;
for i:=2 to m do shu:=shu*10+7; //将剩余几个7连起来
yushu:=shu mod 13; //余数
shang:=shu div 13; //最后一组商
shuzihe:=0;
repeat
mowei:=shang mod 10; //取末尾数字
shuzihe:=shuzihe+mowei; //计算数字和
shang:=shang div 10; //舍末尾数字
until shang=0;
shuzihe:=shuzihe+(5+9+8+2+9)*z;
writeln('除以13余数是：',yushu);
writeln('商的数字和是：',shuzihe);
end.

1年前他留下的回答

4

　　以上就是小编为大家介绍的pascal 100个7组成的百位自然数,被13除后,问余数是几?商数中各位数字之和是多少? 的全部内容，如果大家还对相关的内容感兴趣，请持续关注上海建站网！