Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1001
Language: PASCAL
Code:
var a,i:integer;
begin
readln(a);
for i:=1 to (a div 2) do
    if (a mod i = 0) then writeln(i);
end.
          
Comments: