У шкільній виставці беруть участь 26 картин. Із них 12 картин виконано акварелю, 17 є портретами, 13 каписанов стилі кубізм. Ввідомо, що акварелю виконано 4 портрета і 5 картин у стиль кубізм, окроім того, 9 портретів написано в стилі кубізм. Скільки портретів виконано акварелю в стилі кубізм решить задачку(
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