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

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.

相关问题