cwtests/cw02/factors.while
changeset 860 6f80e6df34f7
parent 856 23273e3a120f
child 934 ee35eeb5831a
equal deleted inserted replaced
859:f766d3486c9d 860:6f80e6df34f7
     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 }