pascal 100个7组成的百位自然数,被13除后,问余数是几?商数中各位数字之和是多少?
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/22 22:35:51
pascal 100个7组成的百位自然数,被13除后,问余数是几?商数中各位数字之和是多少?
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.
所以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.
pascal 100个7组成的百位自然数,被13除后,问余数是几?商数中各位数字之和是多少?
100个7组成的一百位数,被13除后,问:(1)余数是多少?(2)商数中各位数字之和是多少?
两数相除的商是22,余数是8,被除数,除数,商数,余数的和是866,问被除数是多少?
两数相除的商是22,余数是8,被除数、除数、商数、余数的和是866,问:被除数是多少?
有一类自然数,它的各位数字之和是100,这类自然数中最小的是多少?
在所有四位数中,各位商数字之和等于34的数字有多少个?
一个自然数 被7,8,9除的余数是1,2,3,并且这三个商数的和是570 这个自然数是
100个7组成1个100位数,被13整除后,余数是多少?商各个数位之和是多少?
将自然数1,2,3,4,5,6,7,8,9依次重复写下去组成一个百位数,这个数被11除的余数是多少?
一个自然数被 7,8,9 除的余数分别为 1,2,3,并且三个商数的和是570,求这个自然数.
一个自然数被7,8,9除的余数分别为1,2,3,并且三个商数的和是570,求这个自然数
设自然数A等于100个三相乘,那么,A被7除的余数是几.