n=0
for i=123 to 931
a=int(i/100)
b=int(i/10)-10*a
c=mod(i,10)
if a=b or b=c or a=c
n=n+1
endif
endfor
?n
1.————————————————————
CLEAR
SET TALK ON
LOCAL nsum
nsum = 0
FOR i = 1234 TO 5678
k = i
DO WHILE k > 0
IF k % 10 == 7
nsum = nsum + i
EXIT
ENDIF
k = INT(k/10)
ENDDO
ENDFOR
? nsum
2-------------------------------------
CLEAR
SET TALK ON
LOCAL nsum
nsum = 0
FOR i = 1 TO 400
IF i % 3 == 2 .and. i % 5 == 3
nsum = nsum + 1
ENDIF
ENDFOR
? nsum
3-----------------------------------------------------
CLEAR
SET TALK ON
nsum = 0
FOR i = 123 TO 931
cstr = TRANSFORM(i)
FOR j = 1 TO LEN(cstr) - 1
IF AT(SUBSTR(cstr,j + 1),SUBSTR(cstr,j,1)) > 0
nsum = nsum + 1
EXIT
ENDIF
ENDFOR
ENDFOR
? nsum