QBasic
Даны векторы А={а1,...,а15}, В={b1,...,b15}. Переменной Z присвоить значение 1, если вектор А содержит больше чисел, делящихся без остатка на 3, чем вектор В, и значение 0 - в противном случае. Подсчет чисел оформить отдельной подпрограммой.
Даны векторы А={а1,...,а15}, В={b1,...,b15}. Переменной Z присвоить значение 1, если вектор А содержит больше чисел, делящихся без остатка на 3, чем вектор В, и значение 0 - в противном случае. Подсчет чисел оформить отдельной подпрограммой.
Answers & Comments
DECLARE SUB KM30 (A%(), k)
DIM A%(N), B%(N)
CLS
RANDOMIZE TIMER
PRINT "A("; N; "): ";
FOR i = 1 TO N
A%(i) = RND * N
PRINT A%(i);
NEXT i
PRINT
CALL KM30(A%(), k)
PRINT "B("; N; "): ";
FOR i = 1 TO N
B%(i) = RND * N
PRINT B%(i);
NEXT i
CALL KM30(B%(), k2)
IF k > k2 THEN
Z = 1
ELSE
Z = 0
END IF
PRINT , "Z = "; Z
END
SUB KM30 (A%(), k)
FOR i = 1 TO N
IF A%(i) MOD 3 = 0 THEN
k = k + 1
END IF
NEXT i
END SUB
Пример работы программы:
A( 15 ): 0 3 0 14 10 15 8 14 3 8 6 11 11 15 6
B( 15 ): 1 1 1 5 3 5 10 6 3 9 14 8 5 14 2
Z = 1