Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
AlinaAlbul
09.10.2021 15:30 •
Информатика
Для целочисленного массива а, содержащего 10 элементов, определить кратна ли его сумма 7? составить программу в basic
Показать ответ
Ответ:
ЦаринаПятёрок
24.06.2020 21:11
Dim A(10) As Integer, S As Integer
S = 0
For i = 1 To 10
S = S + A(i)
Next i
If S Mod 7 = 0 Then Print "YES" Else Print "NO"
End
0,0
(0 оценок)
Популярные вопросы: Информатика
yaps61
28.02.2023 02:25
Для каждого логического выражения: Определите количество строк Определите количество столбцов Нарисуйте таблицу Заполните таблицу...
Диана9989
28.12.2020 10:11
2) 2 км 425 м - 826 м 85 см •718 ц 02 кг - 41 т 250 кг - 8230 см2. 4190 мм2,5...
briliant2
02.07.2022 08:03
Ребят, что делает это программа, можно подробное объяснениеx = int(input( километры )) if x 1000: print( число больше 1000! ) raise SystemExit y = int(input( километры...
lehaguy
04.07.2022 18:38
На вход дается натуральное число N. Выведите следующее за ним четное число Формат входных данных На вход дается целое положительное число N, не превышающее 10000. Формат...
563836
04.06.2020 17:43
Выплата заработной платы Если можно, то с формулами полу >...
YuKruglova1
09.06.2023 17:20
Даны действительные числа x,y,z. Вычислить max(x+y+z/2,xyz) +max(x, y, z) нужно построить блок-схемубуду очень благодарен...
тони2006
04.06.2023 22:16
1 Жауап берейік1. Алфавит дегеніміз не?2. Алфавиттің қуаттылығы дегеніміз не?3. Алфавиттің қуаттылығын қалай анықтауға болады?4. Компьютерлік алфавитте қанша символ бар?...
15602218s1
20.12.2022 00:19
Дазвіть 2 пункти переваг та недоліків електронної скрині...
Y4ehik300
15.08.2021 11:40
Акпараттын кандай касиеттери бар?...
islamreal99
03.06.2023 09:02
дано целое число.если оно является положительным, то прибавить к нему 1, если отрицательным-отнять от него 2. если нулевым-заменить его на 10. вывести полученное число...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
S = 0
For i = 1 To 10
S = S + A(i)
Next i
If S Mod 7 = 0 Then Print "YES" Else Print "NO"
End