Заполнить массив 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
