Заполнить массив D(15) ручным способом и посчитать в нем количество элементов, кратных 7) на бейсике, заранее огромное спасибо)))
Заполнить массив D(15) ручным способом и посчитать в нем количество элементов, кратных 7) на бейсике, заранее огромное спасибо)))
Гость
Ответ(ы) на вопрос:
ГостьЯзык QBasic 4.5 CLS
DIM d(15)
PRINT "Введите элементы массива "
N = 0
FOR I = 1 TO 15
INPUT d(I)
IF (d(I)< >0) AND (d(I) MOD 7) = 0 THEN N = N + 1
NEXT I
PRINT "Количество кратных 7 =", N
END
Не нашли ответ?
Похожие вопросы