Заполнить массив d(15) ручным и посчитать в нем количество элементов, кратных 7) на бейсике, заранее огромное
matlis
2
20.05.2019 15:10
0
Другие вопросы по теме Информатика
AlinaAlbul
25.05.2019 15:40
Appolinaria06
25.05.2019 15:40
ab198me
25.05.2019 15:40
Hutorttt
18.05.2020 13:28
Vildan609
18.05.2020 13:28
madmiss
18.05.2020 13:28
Maxguvci
18.05.2020 13:29
bandit12341
18.05.2020 13:29
АрикаКуцыстова
18.05.2020 13:29
Популярные вопросы
- Сукраины, ! максимально кратко! тема . походы казаков первой четверти 17 в....
2 - Раскрась съедобный гриб и его ядовитый гриб-двойник так чтобы были понтны их...
1 - Надо сделать план о сочинение «капитанская дочка» на тему: почему мария миронова...
1 - Когда закончилась вторая мировая война? ...
1 - Отцы и дети соичинение сущность идейных рассуждений...
2 - Як і за що проспер альпанус покарав фабіiана? чи можна покарання справедливим?...
3 - От каких величин зависит возникающая в замкнутом контуре электродвижущая сила...
3 - Предмет , а вопрос найдите эпититы ,чравнения, которые набрать этот текст в...
1 - Почему комедию недоросль изучают в школе? в чем ее значимость для современного...
3 - Специфической чертой именно этой конституции являлось то, что некоторые его...
3
Язык 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