求解 - pascal吧

level 1

不知道取啥名z1 楼主

编程输出100以内（包括100）既能被3整除，又能被7整除的自然数。求解

2015年01月14日 09点01分 1

level 6

Var a,b:longint;
Begin
For a:=1 to 100 do
begin
if (a mod 3=0) and (a mod 7=0) then
writeln(a)；
end；
end.

2015年01月14日 11点01分 2

fdsan

100以内用不着longint吧

2015年01月16日 11点01分

回复 wzp2002 :自我

2015年01月18日 04点01分

level 6

..

2015年01月14日 11点01分 3

level 12

聊君º

Var a:integer;
Begin
for a:=0 to 100 do if (a mod 3=0) and (a mod 7=0) then writeln(a)；
End.

2015年01月16日 11点01分 4

level 11

曟_IIIV

begin
writeln('0 21 42 63 84');
end.
以上为最简算法

2015年01月17日 01点01分 6

聊君º

2015年01月17日 08点01分