主题：求助!高手你这题PASCAL程序会做吗?
iacxin099
[专家分：0] 发布于 2005-03-14 00:06:00
题目:个位数为6,能被3整除的5位数的个数是多少?用PASCAL语言编写!谢谢
回复列表 （共28个回复）
沙发
faintzw [专家分：2660] 发布于 2005-03-14 06:28:00
数学方法都可以……实在不行就搜
板凳
codepk [专家分：2800] 发布于 2005-03-14 13:06:00
个位数为6的5位数，可以看成4位数*10+6
6本身能被3除断,也就等于求4位数中有多少个3的倍数
也就是(9999-999)/3=所求
3 楼
MK [专家分：110] 发布于 2005-03-14 22:27:00
var a,i,s:integer;
begin
s:=0;
for i:=1000 to 9999 do
begin
a:=i*10+6;
if a mod 3=0 then inc(s);
end;
writeln(s);
end.
4 楼
woohaha [专家分：120] 发布于 2005-03-16 15:00:00
var i,n:integer;
begin
for i:=10000 to 99999 do
if (i mod 10=6)and(i mod 3=0)then begin inc(n); writeln(i); end;
writeln(n);
end.
结果是一个都没有！
5 楼
faintzw [专家分：2660] 发布于 2005-03-16 22:08:00
因为你的程序是错的，所以没有。
6 楼
codepk [专家分：2800] 发布于 2005-03-18 08:29:00
同意楼上的.....
4楼你的i应该定义为longint,因为99999已经超出integer的表示范围了
7 楼
tanchenggang [专家分：0] 发布于 2005-03-19 19:58:00
我用三楼的程序怎么算不出来啊~
郁闷死~[em18]
8 楼
faintzw [专家分：2660] 发布于 2005-03-19 21:47:00
6楼的已经说了……
9 楼
xsbccf [专家分：20] 发布于 2005-03-20 07:57:00
var i:longint;
begin
for i:=10000 to 99999 do
if ((i mod 3=0) and (i mod 10=6)) then
writeln(i);
end.
10 楼
sb191919 [专家分：40] 发布于 2005-03-25 21:09:00
罗嗦,不就是穷举嘛
program ll;
var i:longint;
begin
for i:=334 to 3333 do writeln(3*i*10+6);
readln
end.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 求助!高手你这题PASCAL程序会做吗?