зачем вам голова: для шапки или ...
Программа работает так: она загадывает трехзначное число, все цифры, которого
различны. Нуль приравнен к остальным цифрам, то есть может стоять впереди.
программа запрашивает вас ввести свое число. Вы вводите. Она выдает вам информацию
об этом числе в виде: A=2 B=1, что означает, что в данном числе, которое вы ввели, есть
две правильные цифры, причем одна из них стоит на своём месте. Конкретный пример:
программа загадала число 012, а вы ввели 021. Программа выдаст информацию A=3 B=1
что означает: вы ввели все три верные цифры, но лишь одно из них на своём месте. Если
вы определите число за 8 ходов, то программа скажет вам комплимент.
вот программа
Код: Выбрать все
DEFINT A-C, I
CLS
RANDOMIZE TIMER
c1=FIX(10*RND(1))
100:
c2=FIX(10*RND(2))
IF c2=c1 THEN 100
200:
c3=FIX(10*RND(3))
IF (c3=c1) OR (c3=c2) THEN 200
FOR i=1 TO 8
a=0: b=0
PRINT "Введите трехзначное число"
INPUT c0
c03=c0 MOD 10
c02=(c0-c03)/10 MOD 10
c01=FIX(c0/100)
IF (c01=c1) OR (c01=c2) OR (c01=c3) THEN a=a+1
IF (c02=c1) OR (c02=c2) OR (c02=c3) THEN a=a+1
IF (c03=c1) OR (c03=c2) OR (c03=c3) THEN a=a+1
IF c01=c1 THEN b=b+1
IF c02=c1 THEN b=b+1
IF c03=c1 THEN b=b+1
PRINT "A=";a;"B=";b
IF b=3 THEN 300
NEXT i
PRINT "Выше голову! Ум дело наживное!!"
STOP
300:
PRINT Вы УМНЫЙ человек!!!!"
STOP
END
, но, похоже , 8 попыток - универсальное число.