10 lines
188 B
Text
10 lines
188 B
Text
int N, D, C;
|
|
[Format(3, 0);
|
|
for N:= 1 to 100 do
|
|
[C:= 0;
|
|
for D:= 1 to N do
|
|
if rem(N/D) = 0 then C:= C+1;
|
|
RlOut(0, float(C));
|
|
if rem(N/20) = 0 then CrLf(0);
|
|
];
|
|
]
|