Strange plus numbers: Difference between revisions

Content added Content deleted
Line 811: Line 811:


k := 0;
k := 0;
for n := 100 to 500 do
for n := 101 to 499 do
begin
begin
a := n div 10; // first two digits
a := n div 10; // first two digits