Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Быстрееее
27.05.2020 19:34 •
Информатика
На qbasic. найдите произведение чисел массива кратных числу k.
Показать ответ
Ответ:
8Мария11
05.07.2020 12:24
DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P
0,0
(0 оценок)
Популярные вопросы: Информатика
abaltabaeva03
23.01.2020 12:36
Есть переменная, содержащая 10 десериализованных Джейсон объектов(base64 строки). (GetAnswer answer = JsonConvert.DeserializeObject(imageAnswer);). Далее преобразование из base64:...
unucozi
13.06.2020 03:03
25 . напишите программу, которая заполняет массив случайными числами в диапазоне [0,20] и сортирует его в порядке убывания, начиная с указанного номера элемента...
damama
23.02.2020 13:24
Решить некоторое число x из десятичной системы счисления перевели в системы счисления с основаниями 16, 8. часть символов при записи утеряна. позиции утерянных символов обозначены...
Алёнушка43
22.05.2020 05:48
Впрограмме описан одномерный целочисленный массив с индексами от 0 до 10. s: =0 n: =10 for i: =0 to n-2 do begin s: =s+a[i]-a[i+2] в начале выполнения этого фрагмента в массиве находились...
Maizer01
16.07.2020 07:04
Можно ли расположить очки последовательно с 12 до 17 на гранях игрового кубика так, чтобы: ·на противоположных гранях была одинаковая сумма очков? •Нет •Да Если да, то эта сумма...
natalyiphonep0725u
16.07.2020 07:04
Написать программу, определяющую:a. дату следующего (предыдущего) дня;b. дату, которая наступит через mдней;c. дату, которая была за m дней до сегодняшнего дня;d. количество суток...
3339991
01.09.2020 10:52
Проверочная по физике 11 класс....
negei
10.05.2021 20:04
Что означают слова учиться в школе природы как вы думаете?...
Bluka23
07.03.2022 17:04
Задание 1: Вставьте пропущенные слова в текст. На стебле располагаются почки, , а также цветки и . Для всех этих органов стебель является . Значит, стебель выполняет функцию. Органические...
викусик152
27.08.2021 20:12
Чому після пожежі Лукаш залишається з природою у лісі)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P