tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Visual basic! дано целое число
Visual basic! дано целое число n (> 0). используя один цикл, найти сумму 1! + 2! + 3! + … + n!
Olegarxi
2 08.06.2019 13:20
0
Ответы
sasha290806
07.07.2020 17:57
Sub z()
n = CInt(InputBox("N?"))
k = 1
s = 0
For i = 1 To n
k = k * i
s = s + k
Next
MsgBox (s)
End Sub
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
EgorFolt2123121
14.04.2021 17:02
Силтемелер тобынын батырмаларын корсетиндер...
яшка37
14.08.2019 00:30
Добрый день! , . даны координаты трёх точек плоскости. проверить, образуют ли они прямоугольный треугольник. язык: с++ заранее ....
Iraa26
14.08.2019 00:30
Даны две тройки вещественных чисел. найти среднее арифметическое максимумов каждой тройки p.s писать программу на базе paskalabc.net...
aminamamedova3
14.08.2019 00:30
Часы с боем бьют каждый час столько раз , сколько показывет часовая стрелка . сколько ударов прозвучит в течение 12 часов...
vita102003
25.02.2021 06:50
Разрешающая экрана 256х128 пикселей.В палитре используется 32 цвета. Какой объём видеопамяти необходим для изображения?(ответ запишите в килобайтах)...
gashuna
25.02.2021 06:52
На каком блоке расположены математические задачи программа Скретч ...
окткл
17.05.2021 14:14
ПЛЗ 1) За один ход игрок может добавить в одну из куч (по своему выбору) один камень или увеличить количество камней в куче в два раза. Игра завершается в тот момент, когда суммарное...
kisslenkayaozax1i
17.05.2021 14:14
В финале турнира Российской Армии по шахматам встретились представители шести воинских званий: подполковник, капитан, лейтенант, полковник, сержант и ефрейтор, причём разных специальностей:лётчик,...
ieoeoeoeosikskd
17.05.2021 14:14
Напишите слова, относящиеся к носителям информации...
dfytr88
17.05.2021 14:14
Укажите определения ОБЪЕКТА и МОДЕЛИ...
Популярные вопросы
Решить уравнения -21/3+(х-1/6)=-45/9...
1
Написать сочинение на тему ,,сила поэзии ....
1
X+0,5x=22,5( решить буду безконечно )...
1
Найдите ошибки в употреблении существительных, которыми выражены дополнения,...
3
Отношение некрасова к стихотворению мы с тобой бестолковые люди...
2
Выпиши из предложения все местоимения ,укажи лицо и число одного из них (на...
2
Составь выражение ( схема, краткую запись): за 3 дня туристы с км. пути. причем...
2
Сформулы v=abc вычислите: а) v, если а = 3 дм b = 4 дм с =5 дм; б) а, если...
2
Написать 5 сложноподчиненных предложений с придаточным временем и 5 с придаточным...
1
Как решить пример с дробями 1-2/25-8/25...
1
n = CInt(InputBox("N?"))
k = 1
s = 0
For i = 1 To n
k = k * i
s = s + k
Next
MsgBox (s)
End Sub