主题：求助!高手你这题PASCAL程序会做吗?
iacxin099
[专家分：0] 发布于 2005-03-14 00:06:00
题目:个位数为6,能被3整除的5位数的个数是多少?用PASCAL语言编写!谢谢
回复列表 （共28个回复）
21 楼
night [专家分：0] 发布于 2005-05-12 20:15:00
能被3整除的数，它每一位上的数字之和也能被3整除
var
x,y,i,k,t,q,a,b,c,d:integer;
begin
for i:=1000 to 9999 do
begin
a:=i div1000;q:=i mod 1000;b:=q div 100;q:=q mod 100;c:=q div 10;
d:=q mod 10;
k:=a+b+c+d+6;
if k mod 3=0 then begin t:=t+1;write(i,6); end;
writeln;
end;
write('total:',t);
end.
22 楼
lubei [专家分：50] 发布于 2005-05-14 20:57:00
我想知道用一般的数学方法怎么求？
23 楼
woohaha [专家分：120] 发布于 2005-05-19 09:20:00
一时疏忽了数据类型
我觉得第10楼的程序比较好
24 楼
天空飞雪 [专家分：960] 发布于 2005-05-22 12:43:00
program el;
var i,j:longINt;
begin
for i:=10000 to 99999 do
if (i mod 10 =6) and(i mod 3=0) then inc(j);
write(j);
readln;
end.
25 楼
天空飞雪 [专家分：960] 发布于 2005-05-22 13:02:00
ogram el;
var i,j:longINt;
begin
for i:=10000 to 99999 do
if (i mod 10 =6) and(i mod 3=0) then inc(j);
write(j);
readln;
end.
26 楼
天空飞雪 [专家分：960] 发布于 2005-05-22 13:04:00
program el;
var i,j:longINt;
begin
for i:=10000 to 99999 do
if (i mod 10 =6) and(i mod 3=0) then inc(j);
write(j);
readln;
end.
27 楼
jiong12 [专家分：0] 发布于 2005-05-23 18:00:00
4楼的，你错了。应该是：
FOR I：=10000 TO 99999 DO
IF （I MOD 10=6） AND （I MOD 3=0）THEN BEGIN WRITE（I：7）；S：=S+1；END；
WRITE（S）；
28 楼
泡泡糖 [专家分：230] 发布于 2005-06-14 12:13:00
program lt;
var m,i,s:itneger;
begin
m:=0;
for i:=1000 to 9999 do
begin
s:=i*10+6;
if s mod 3=0 then m:=m+1;
end;
end.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 求助!高手你这题PASCAL程序会做吗?