主题：求助!高手你这题PASCAL程序会做吗?
iacxin099
[专家分：0] 发布于 2005-03-14 00:06:00
题目:个位数为6,能被3整除的5位数的个数是多少?用PASCAL语言编写!谢谢
回复列表 （共28个回复）
11 楼
mdjqdh [专家分：140] 发布于 2005-04-03 11:41:00
9楼的 人家问的 是 个数 不是求出来啦
var i:longint a:integer;
begin
a:=0;
for i:=10000 to 99999 do
if ((i mod 3=0) and (i mod 10=6)) then
a:=a+1;
writeln (a);
end.
12 楼
给她买DOVE [专家分：0] 发布于 2005-04-10 21:06:00
var i,j:integer;
begin
for i:=1000 to 9999 do
begin
if (i mod 3=0) then
j:=j+1;
end;
writeln(j:4);
readln;
end.
13 楼
menza109 [专家分：0] 发布于 2005-04-15 12:16:00
恩 好主意！
14 楼
sd5774188 [专家分：260] 发布于 2005-04-16 12:24:00
program yb(input,output);
var a,b:longint;
begin
b:=0;
for a:=10000 to 99999 do
begin
if (a mod 3=0) and (a mod 10=6) then
b:=b+1;
end;
write('b=',b);
end.
算出来是三千 ，不知道对不对．．
15 楼
smallboat [专家分：60] 发布于 2005-04-17 10:00:00
program aaa;
var i,x:longint;
begin
x:=0;
for i:=10000 to 99999 do
if (i mod 3=0) and (i mod 10=6) then inc(x);
writeln(x);
end.
16 楼
zhengly [专家分：0] 发布于 2005-05-07 07:16:00
printf(" \n");
printf(" upupupupupup \n");
printf("upupupupup up \n");
printf(" up up \n");
printf(" up upupupupup \n");
printf(" up up up \n");
printf(" up up up up \n");
printf(" up up up up \n");
printf(" up up up up \n");
printf(" up up up up \n");
printf("upupup up \n");
printf(" upup up up \n");
printf(" up upup upup \n");
17 楼
zhengly [专家分：0] 发布于 2005-05-10 04:02:00
好
18 楼
horse41 [专家分：0] 发布于 2005-05-10 17:49:00
其实是问整除3的四位数有几个
19 楼
night [专家分：0] 发布于 2005-05-12 20:02:00
只要把每位个数的每位加起来，能被3整除，这个数就可以被3整除，例如12366，1+2+3+6+6=18，可以被3整除，12366就可以被3整除
20 楼
night [专家分：0] 发布于 2005-05-12 20:13:00
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.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 求助!高手你这题PASCAL程序会做吗?