Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ZikZaka2
24.06.2020 03:46 •
Информатика
Найти все делители числа 1234 язык visual basic 2010 !
Показать ответ
Ответ:
mark02062005
05.10.2020 14:41
Sub Main()
Dim i, n As Integer
Dim s As String
s = ""
n = 1234
For i = 1 To Int(n / 2)
If n Mod i = 0 Then
s = s + Str(i) + " "
End If
Next i
MsgBox s
End Sub
0,0
(0 оценок)
Популярные вопросы: Информатика
FeGLoCk
24.01.2020 03:57
клубника бомба честно говоря...
sawa1989
07.01.2022 04:24
Автоматическая фотокамера производит растровые изображения размером 500 на 400 пикселей. При этом объём файла с изображением не может превышать 200 Кбайт, упаковка данных не производится....
ilyasterxov16
14.04.2021 03:00
Найдите произведение нечетных элементов массива * P=1 for in in range(0,n): if A[i]%2 0: P*=A[i] P=1 for in in range(0,n): if A[i]%2 !== 0: P*=A[i] P=1 for in in range(0,n): if A[i]%2...
Yalikhan
10.03.2020 14:44
Надов программе вывести числа рандомно от 1 до 100...
nezervillager
26.07.2022 17:32
все язык pascalскласти програму для обчислення суми усіх натуральних чисел, що містяться між двома даними.наприклад, користувач вводить числа 3 і 15, а програма обчислює суму 3+4+5+6+7++12+13+14+15...
милана695
15.12.2020 19:26
Составьте программы на паскале по алгоритмам из 3,4 предыдущего параграф. выполните эти программы на компьютере 4 из предыдущего параграфа : вы посетили магазин и купили 10 видов...
zhannar333ta
16.05.2023 08:36
Значение выражения 7^103 - 6*7^70 + 3*7^57 - 98 записали в системе счисления с основанием 7. Сколько цифр 6 содержится в этой записи?...
jamesa99
29.08.2021 01:07
Как создать запрос в access выводящий результаты выше указанной?...
242Bob
19.03.2022 01:30
Найдите, сколько целых решений неравенства входит в интервал [-1;2] (√7 - 3,2)(2-√x) ≤ 0 Решите с объяснением, на листочке...
arlashmanov
24.08.2021 12:26
у кати было 132 кубика она сложила из них прямоугольный параллелепипед показанный на рисунке и еще несколько кубиков осталось...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Dim i, n As Integer
Dim s As String
s = ""
n = 1234
For i = 1 To Int(n / 2)
If n Mod i = 0 Then
s = s + Str(i) + " "
End If
Next i
MsgBox s
End Sub