cwtests/cw02/factors.while
changeset 860 abf63cd5e11b
parent 856 6a16964aed93
child 933 4d9674598682
equal deleted inserted replaced
859:2c6fa627df78 860:abf63cd5e11b
     1 // Find all factors of a given input number
     1 // Find all factors of a given input number
     2 
     2 
     3 
     3 
     4 write "Input n please";
     4 write "Input n please: ";
     5 read n;
     5 read n;
     6 write "\nThe factors of n are";
     6 write "The factors of n are: \n";
     7 f := 2;
     7 f := 2;
     8 while (f < n / 2 + 1) do {
     8 while (f < n / 2 + 1) do {
     9   if ((n / f) * f == n) then  { write(f); write("\n") } else { skip };
     9   if ((n / f) * f == n)
       
    10   then { write(f); write("\n") }
       
    11   else { skip };
    10   f := f + 1
    12   f := f + 1
    11 }
    13 }