* vfp program, input the initial value of an integer x from the keyboard, starting from the number and ending at 100 (including 100).
* Requirements: 1. Find all integers that can be divided by 7 or 11 and display their values.
* 2. Count the number of the above integers, store them in variable s, and display their values.
SET TALK OFF
CLEAR
INPUT "Please enter an initial value integer: " TO x
s=0 "can be Integers divisible by 7 or 11: "
FOR i=x TO 100
IF MOD(i,7)=0 .or. MOD(i,11)=0
p>?i
s=s+1
ENDIF
ENDFOR "***Yes"+LTRIM(STR(s))+ " an integer divisible by 7 or 11.
"
SET TALK ON
RETURN