一、基础练习-各数位数的取法。
1、设某四位数的各位数字的平方和等于198，问满足这种条件的最大数和最小数之和是多少？(正确答案12749)
var a,b,x,min,max:integer;begin
max:=1000;
for x:=1000 to 9999 do
begina:=x div 1000;
b:=(x mod 1000) div 100
d:=x mod 10;
if a*a+b*b+c*c+d*d=198 then
beginif x>max then __
if x end;
end;write(min+max);
end.2、编写程序计算100---10000以内个位上的数小于百位上的数的所有数之和。 (正确答案306450)
var n,i,bw,gw:integer;
beginfor i:=100 to 1000 do
begingw:=i mod 10;
if gw end;
write(n);
end.3、求出将十进制数***等值转换为十六进制形式表示后其中字母c的个数。(提示：模拟人工计算的“16除取余”法)(正确答案2 )
var a:qword;p,n,r:integer;
begina:=99887766554;
p:=16;
n:=0;whiledo
beginr:=a mod p;
if __then __
a:=a div p
end;write(n);
end.4、求出[1234，6789]内中间两位数字之和等于首尾两位数字之积的数的个数。 (正确答案175)
var n,x,a,b,c,d:integer;
beginn:=0;
for x:=1234 to 6789 do
begina:= x div 1000;
d:=x-a*1000-b*100-c*10
if b+c=a*d then n=n+1
end;write(n);
end.5、求所有符合算式ab*ba=3627的最大的两位数ab(即a*10+b)。(其中a、b是1-9之间的整数)(正确答案93)
var x,y,a,b:integer;
beginx:=11；
repeat
a:=x div 10;
b:=x mod 10;
x:=x+1;
until x*y=3627 or x>99;
end.6、求前[1，100]以内能被6或8整除的所有自然数的平方根的和(将第一位小数四舍五入，结果只保留整数)。(正确答案162)
var n:integer; s:real;
begins:=0;
for n:=1 to 100 do
if mod(n,6)=0 __mod(n,8)=0 then
write(round(s));
end.7、回文指的是正读和反读都一样的字符串，如。试求出[1234，9876]内回文数的个数。(正确答案85)
var n,x,a,b,c,d:integer;
beginn:=0;
for x:=1234 to 9876 do
beginb:=(x-a*1000) div 100;
c:=(x-a*1000-b*100) div 10;
d=x-a*1000-b*100-c*10
end;write(n);
end.二、提高题。
降序组合：给定两个自然数n,r(n>r),输出从数1 到n中按降序顺序取r个自然数的所有。
组合。例如，n=5,r=3时，有如下组合：
程序如下：var n,r,i,j:integer;
a:array[1..20] of integer;
beginwrite('n,r=')
repeat
readln(n,r);
until n>r;
i:=1;a[1]:=n;writeln('result:')
repeat
if i<>r then
if a[i]>r-i then
begin___1)__i:=i+1;
endelse begin
a[i]:=a[i]-1 end
elsebegin
for j:=1 to r do write(a[j]:3);
writeln;
if a[r]=1 then
begini:=i-1; a[i]:=a[i]-1;
end else __3)__
end;until a[1]=r-1;
end.
计算机基础与程序设计》填空题
填空题。2002年4月 三 填空题 本大题共10小题，每小题1分，共10分 31.设字长为八位，十进制 100在机内的存储形式是 语言程序由main 函数开始执行，应在 函数中结束。33.在格式输出语句中，用于带符号的十进制长整型输出的格式符是 34.当a 2,b 3,c 1时，执行以下程序段后，输...
2023年六一程序
尊敬的各位领导 各位来宾 亲爱的老师们 同学们，大家好！汽修小学2011年庆六一活动现在开始，今天，领导带着节日的问候，带着对我们的殷切期望来看望我们啦！让我们用最热烈的掌声欢迎他们的到来！先让我们来认识一下光临今天演出会场的领导 来宾。他们是 福瑞特的严部长 特修厂的马书记 老年管理中心的田主任 ...
2023年实验考试程序册
2011年中考实验操作技能考查程序册。一 组织机构。中考工作是关系到广大人民群众切身利益的大事。为做好我市2011年中考实验操作技能考试工作，保护考生的合法权益，确保我市中考实验操作技能考试做到公正 公平，考试工作顺利进行，全市组织由局相关领导 相关科室负责人 监考教师和工作人员组成的2011年实验...