Заполнить массив D(15) ручным способом и посчитать в нем количество элементов, кратных 7) на бейсике, заранее огромное спасибо)))
More Questions From This User See All
Заполнить массив D(15) ручным способом и посчитать в нем количество элементов, кратных 7) на бейсике, заранее огромное спасибо)))
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Язык 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