如何检查实数是否是pascal中的自然数？

Question

我是初学者，我正在尝试编写一个简单的程序来计算一个数字的所有分频器。在进行除法之后，我想只写出给我一个自然数的分频器。我无法想办法。

循环除以数字

For i := 1 to x do
    Begin
        D := x div i; 
        WriteLn ('Divider', lp, '. ', x, ' : ', i, ' = ', D); 
        lp := lp +1; 
    End;

Answer 1

这是一个提示 - 而不是检查x div i的结果是否自然，为什么不检查x是否被i精确划分？意味着x mod i应为0。