Table of divisors by D

procedure Gnat.Io.T is N:Integer;begin
Get(N);For I In 1..N Loop Put(i);Put(":");for J in 1..I loop if i mod j=0 then
Put(j);Put((1..1-J/I=>' '));End If;End loop;New_Line;end loop;end;

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

download

return to the top page