CLS RANDOMIZE TIMER INPUT "N = ", N DIM D%(N) PRINT "D("; N; "):"; K = 0 FOR i = 1 TO N D%(i) = RND * (2 * N + 1) - N PRINT " "; D%(i); NEXT i PRINT INPUT "T = ", T FOR i = 1 TO N IF D%(i) = T THEN K = K + 1 END IF NEXT i PRINT "K = "; K END
2)
CLS RANDOMIZE TIMER DIM D%(14), C%(14) PRINT "D(14):"; K = 0 FOR i = 1 TO 14 D%(i) = RND * 41 - 20 PRINT " "; D%(i); IF D%(i) < 7 THEN K = K + 1 C%(K) = D%(i) END IF NEXT i PRINT PRINT "C("; K; "):"; FOR i = 1 TO K PRINT " "; C%(i); NEXT i END
Во-первых, X1 < 8, иначе число 2N в 16-ной записи станет 4-значным. Можно написать такую программу поиска этих чисел Начало k = 0 ' Это счетчик чисел, которые мы ищем Цикл по X1 от 1 до 7 Цикл по Y1 от 0 до 15 Цикл по Z1 от 0 до 15 N = X1*256 + Y1*16 + Z1 M = 2*N X2 = Int (M / 256) Y2 = Int ((M - X2*256) / 16) Z2 = M Mod 16 Если (X1+Y1+Z1 = X2+Y2+Z2) And ((X1 = 2) Or (Y1 = 2) Or (Z1 = 2), То k = k + 1 Конец Если Конец цикла по Z1 Конец цикла по Y1 Конец цикла по X1 Вывод k Конец
CLS
RANDOMIZE TIMER
INPUT "N = ", N
DIM D%(N)
PRINT "D("; N; "):";
K = 0
FOR i = 1 TO N
D%(i) = RND * (2 * N + 1) - N
PRINT " "; D%(i);
NEXT i
PRINT
INPUT "T = ", T
FOR i = 1 TO N
IF D%(i) = T THEN
K = K + 1
END IF
NEXT i
PRINT "K = "; K
END
2)
CLS
RANDOMIZE TIMER
DIM D%(14), C%(14)
PRINT "D(14):";
K = 0
FOR i = 1 TO 14
D%(i) = RND * 41 - 20
PRINT " "; D%(i);
IF D%(i) < 7 THEN
K = K + 1
C%(K) = D%(i)
END IF
NEXT i
PRINT
PRINT "C("; K; "):";
FOR i = 1 TO K
PRINT " "; C%(i);
NEXT i
END