楼上的说的很高深,其实这是简单问题,人家还是新手,不要把人搞昏了...
1.
Program ex1;
Var
Begin
readln(x,y);{用后面的空readln语句就不能用read}
for i:=1 to x do
if ((x*i) mod y)=0 then
begin
writeln(x*i);
break;{退出整个循环}
end;
readln;{运行程序是在此停顿一下,便于查看结果,是一个小技巧}
End.
{思想是用X的倍数去一个一个试,可以优化,但对初学者有启示作用}
2.
思想将该数不停除10,输出其余数(MOD),将原数除10取整(DIV)直到数变为0
3.
最白痴的方法,从1 到X去试...
PS:由于懒,后面的程序没写,写第一个给你当启示
温馨提示:答案为网友推荐,仅供参考