Strange numbers: Difference between revisions

Content added Content deleted
(Added XPL0 example.)
Line 2,388: Line 2,388:
int Cnt, N;
int Cnt, N;
[Cnt:= 0;
[Cnt:= 0;
for N:= 100 to 500 do
for N:= 100 to 500-1 do
if Strange(N) then
if Strange(N) then
[Cnt:= Cnt+1;
[Cnt:= Cnt+1;