Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
кент1346
12.02.2020 01:39 •
Информатика
Написать программу вычисления суммы n слагаемых вида: (k-1)3 где к=1,2, n
Показать ответ
Ответ:
SattorovaSonya
26.06.2020 23:40
Dim n As Integer
Dim k As Integer
Dim Summ As Integer
n = InputBox("Введите n")
For k = 1 To n
Summ += (k - 1) * 3
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Next
MsgBox(Summ)
0,0
(0 оценок)
Популярные вопросы: Информатика
ангелочек1631
23.07.2021 01:02
Подготовить сообщение на тему «Оргтехника по специальности» на 2 стр не больше....
гриша167
16.11.2021 02:17
Контрольная работа по теме основы алгоритмизации...
Диарочка1
04.06.2022 21:18
Составить алгоритм нахождения суммы и количества положительных элементов массива A(40). НУЖНО БЛОК-СХЕМУ СОСТАВИТЬ...
lystuchaanna20
02.01.2023 09:26
С++ Пчелка. Задача на фото. Ввод: 2 или 3 Вывод: 11 или 291...
Kasha09
20.09.2021 07:35
35.3 Complete the sentences. Sometimes you need only one word, sometimes two. 1 a I have a toothache. I d better go to the dentist. b John is expecting you to phone him. You...
tatyankafi
05.05.2022 19:36
, Заданине: Найдите угла между биссектрисой угла 80 градусов и противоположным лучом одной из его сторон. (простите если не грамотно я на мониторинге)...
anton277
14.12.2020 16:40
Нужна в паскале указание:для каждой задачи создайте алгоритм и программу. заполните двумерный числовой масчив h(5,5) случайными целыми числами в интервале [-7;7].Выведите...
Kolibri98
29.06.2020 23:43
Постройте график функции и перечислите их свойства а) у = 4х – 4;б) у = х2 + 6x - 3,хе (-1; 5]....
Danil24052002
03.03.2023 10:25
В результате выполнения программы количество выведенных на экран слов равно... ...
Polona1337
26.10.2022 15:10
Решите систему неравенств 8 класс ᡕᠵ᠊ᡃ່࡚ࠢ࠘ ⸝່ࠡࠣ᠊߯᠆ࠣ࠘ᡁࠣ࠘᠊᠊ࠢ࠘~♥︎...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Dim k As Integer
Dim Summ As Integer
n = InputBox("Введите n")
For k = 1 To n
Summ += (k - 1) * 3
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Next
MsgBox(Summ)