Задача на QBasic.Найдите произведение чисел массива кратных числу K.
Задача на QBasic.
Найдите произведение чисел массива кратных числу K.
Гость
Ответ(ы) на вопрос:
ГостьDIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P
Не нашли ответ?
Похожие вопросы