Anonymous user
Factors of an integer: Difference between revisions
→{{header|Pascal}}: add example
(→{{header|Pascal}}: add example) |
|||
Line 1,244:
=={{header|PARI/GP}}==
<lang parigp>divisors(n)</lang>
=={{header|Pascal}}==
Based on the Fortran example:
<lang pascal>program Factors;
var
i, number: integer;
begin
write('Enter a number between 1 and 2147483647: ');
readln(number);
for i := 1 to round(sqrt(number)) - 1 do
if number mod i = 0 then
write (i, ' ', number div i, ' ');
// Check to see if number is a square
i := round(sqrt(number));
if i*i = number then
write(i)
else if number mod i = 0 then
write(i, number/i);
writeln;
end.</lang>
Output:
<pre>
Enter a number between 1 and 2147483647: 49
1 49 7
Enter a number between 1 and 2147483647: 353435
1 25755 3 8585 5 5151 15 1717 17 1515 51 505 85 303 101 255
</pre>
=={{header|Perl}}==
| |||