二十九课:既是M的倍数又是N的约数
发表时间:2002-12-12 00:00:00 关键词:奥赛,PASCAL,编程,源码
(点击:) 把这篇文章告诉我的QQ或MSN朋友
program xunshu;
var
m,n,i,p:integer;
begin
read(m,n);
p:=0;
for i:=m+1 to n-1 do
if (i mod m=0) and (n mod i=0) then
begin
write(i:4);
p:=p+1;
end;
writeln;
if p=0 then writeln('none.');
end.
本站特约顾问律师常州东晟律师事务所朱立律师(电话13915029670,QQ646146109)提醒您:
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
