Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  4 7
Language: PASCAL
Code:
program PerfectNumbers;
var
A, B, temp, i, j, count, factor : integer;
begin
  write('Enter two positive integers: ');
  readln(A, B);
  factor := 0;
  count := 0;
  if A > B then
  begin
  temp := A;
  A := B;
  B := temp;
  end;
  for i := A to B do
    begin
    for j := 1 to (i-1) do
      begin
        if (i mod j = 0) then
        factor := factor + j;
      end;
     if (factor = i) then
        count := count + 1;
    end;
  writeln('There are ', count, ' perfect numbers between ', A, ' and ', B);
end.
Comments: