Table of divisors by sky

var i,j,k:integer;begin readln(k);for i:=1 to k do begin Write(i,':1');for j:=2 to i do if i mod j=0 then write(' ',j);writeln;end;end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page