код подобной программы-обманки(пр проще) для бесика -) кто не ленивый скомпелирует, не могу в ехе переделать.
Quote:
CLS
DIM x, y, V AS INTEGER
DO
PRINT "zagodayte 4islo v diapazone ot 0 do 10"
PRINT "dlya prodoljenia vvedit 1 "
INPUT V
LOOP UNTIL V = 1
x = RND * 10 MOD 10
PRINT "pribavte k zagadannomu 4islu"
PRINT x
DO
PRINT "dlya prodoljenia vvedite 1"
INPUT V
LOOP UNTIL V = 1
y = y + x
x = RND * 10 MOD 10
PRINT "pribavte yeshe"
PRINT x
DO
PRINT "dlya prodoljenia vvedite 1"
INPUT V
LOOP UNTIL V = 1
PRINT "otnemite 4islo zagadannoy vami"
DO
PRINT "dlya prodoljenia vvedite 1"
INPUT V
LOOP UNTIL V = 1
PRINT "u vas polu4ilos' 4islo"
y = y + x
PRINT y
END
|
