turbo pascal的一道题：找出100到999之间的整数中所有等于它每位数字立方和的数

maomaofhxy2022-10-04 11:39:541条回答

已提交，审核后显示！提交回复

wuyixun 共回答了19个问题 | 采纳率94.7%: var a,b,c:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=100*a+10*b+c then writeln(a,b,c);
end.
{结果：
153
370
371
407}; 1年前

求1道turbo pascal题目的解法 求1道turbo pascal题目的解法 用自然数300,205,167分别除以某整数A,所得的余数均相同.求出整数A以及相除的余数 请用turbo pascal格式 要把晶粒1年前1: caoacao 共回答了21个问题 | 采纳率90.5%

var i,num1,num2,num3:integer;
begin
for i:=1 to 167 do
begin
num1:=300 mod i;
num2:=205 mod i;
num3:=167 mod i;
if (num1=num2)and(num2=num3) then
writeln(i,' ',num1);
end;
end.

1年前查看全部

turbo pascal 7.0 题目： 1，试求 1*3*5*7*……*N。（N小于12） 2，试求 1-2+3-4… turbo pascal 7.0 题目： 1，试求 1*3*5*7*……*N。（N小于12） 2，试求 1-2+3-4……N。（N小于3000）急 海口甲方1年前5: 我是mm 共回答了16个问题 | 采纳率87.5%

1:var
n,i,s:longint;
begin
readln(n)
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
end.
2:var
n,i,s:longint;

1年前查看全部

TURBO PASCAL中,实数型如何以小数形式表达方式? TURBO PASCAL中,实数型如何以小数形式表达方式? REAL运行后都是科学表达法,如何用一般表示?如：11.475. chengxunran1年前1: 旅无痕共回答了7个问题 | 采纳率57.1%

输出的时候加上:0:n
如输出小数r
writeln(r:0:3)
表示输出r,并保留三位小数

1年前查看全部

如何判断一个数是否是约数?本人做到一道题,比如：12 中间有几个约数？（最好用 turbo pascal） 逸缘网1年前2: -丁丁猫- 共回答了14个问题 | 采纳率92.9%

约数又叫因数.整数a能被整数b整除,a叫做b的倍数,b就叫做a的约数.（在自然数的范围内） 6的约数有：1、2、3、6 10的约数有：1、2、5、10 15的约数有：1、3、5、15 注意：一个数的约数包括1 及其本身.整数a除以整数b(b≠0)除得的商正好是整数而没有余数,我们就说a能被b整除,或b能整除a.a叫b的倍数,b叫a的约数或因数.约数和倍数相互依存,不能单独说某个数是约数或倍数.约数：如果一个整数能被两个整数整除,那么这两个数就是这个数的约数.约数是有限的,一般用最大约数.直白地说:约数就是能将其整除的除数.例如:能把24整除的有：1、2、3、4、6、8、12、24 所以24的约数有：1、2、3、4、6、8、12、24 约数是可以整除这个数的数,一般都小于或等于它(包括它自身).

1年前查看全部