Contributor: LOU DUCHEZ
{LOU DUCHEZ> Could anybody explain how to Write such a routine in Pascal?
Here's a dorky little "Factoring" Program I wrote to display the factors
of a number:
}
Program factors;
Var
lin,
lcnt : LongInt;
begin
Write('Enter number to factor: ');
readln(lin);
lcnt := 2;
While lcnt * lcnt <= lin do
begin
if lin mod lcnt = 0 then
Writeln('Factors:', lcnt : 9, (lin div lcnt) : 9);
lcnt := lcnt + 1;
end;
end.
{
Notice that I only check For factors up to the square root of the number
Typed in. Also, notice the "mod" operator: gives the remainder of Integer
division ("div" gives the Integer result of division).
Not Really knowing exactly what you want to accomplish, I don't Really know
if the above is of much help. But what the hey.
}