tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти сумму квадратов всех
Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры) в basic - составить не менее 2 видов циклов.
odminsovet
1 27.06.2019 04:30
13
Ответы
guseva2yul
21.07.2020 18:57
Input a
s=0
for i=a to 50
s=i^2+s
next i
print s
ИЛИ
input a
s=0
while a<=50
s=s+a^2
a=a+1
end while
print s
ПОКАЗАТЬ ОТВЕТЫ
Helluing
21.07.2020 18:57
Dim a As Integer, i As Integer, s As String
a = InputBox("Введите число а")
For i = a To 50
s = s + "," + CStr(i * i)
Next
MsgBox s
a = InputBox("Введите число а")
i = a: s = ""
Do While i < 51
s = s + "," + CStr(i * i)
i = i + 1
Loop
MsgBox s
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mastermax217
31.01.2021 14:30
Сколько памяти нужно для хранения 32-цветного растрового изображения размером 128×128 пикселей...
w11Maxim11w
31.01.2021 14:33
5. Придумайте два-три предложения по следующей схеме:...
den1112pro
31.01.2021 14:35
Достаточно ли видеопамяти объемом 256 Кбайт для работы монитора в режиме 640х480 и палитрой из 12 цветов?...
софи157
06.04.2020 13:22
Напиши программу на языке Паскаль АВС. Каждая бактерия делится на две в течение 1 минуты. В начальный момент имеется одна бактерия. Напишите программу вычисления количества...
4EJLOBEK228
25.09.2019 05:01
Водной из кодировок unicode каждый символ кодируется 16 битами оцените размер следующего предложения в данной кодировки «куда так, кумушка,ты без оглядки? »- лисицу спрашивал...
хабиб36
25.09.2019 05:01
Вывести на экран в одну строку через запятую 4 переменных abcd где a равно 30, б равно 14,9, с равно 33.33, d равно 1944. паскаль...
ilnasgo54
04.07.2019 00:30
Разбейте число 138 на три попарно различных натуральных слагаемых, сумма любых двух из которых делится на третье. перечислите числа в порядке убывания через пробел....
ordabaevabayan
04.07.2019 00:30
Число называется палиндромом, если справа налево и слева направо читается одинаково. например, 12321 – палиндром. найдите ближайший палиндром, больший числа 13244. пример:...
denisgolubev1
04.07.2019 00:30
На луне есть монеты 1, 2, 4, 7, 8 тугриков. незнайка хочет купить билет в кино за 30 тугриков и отдать наименьшее количество монет. какие монеты он должен отдать? (перечислите...
Rossen
04.07.2019 00:30
3. дикобраз маша и яша играют в “шифровку”. маша придумывает правило преобразования текста. яша может говорить маше любые слова и узнавать, как они звучат в зашифрованном...
Популярные вопросы
Напишите небольшой стих про дом (4 класс)...
1
Установите соответствие: производство 1)автомобилей 2)компьютеров 3)трелевочных...
2
Вчем, на ваш взгляд, состояло значение восстания степана разина в края?...
1
Составьте и запишите предложения так,чтобы причастный оборот в одних случаях...
1
Почему умирает левша в сказе лескова?...
2
Дн сибиряк аленушкины сказки -почему автор дал такое название своему сборнику?...
3
На решение двух васе потребовалось 24 мин. а на решение трех примеров на...
2
Какие группы животных относятся к земноводным...
3
Разгадайте загадку может и разбиться,может и свариться. если хочешь,в птицу...
1
Окислительно-восстановительные реакции ca(oh)2+h3po4(изб)=ca3(po4)2+h2o...
1
s=0
for i=a to 50
s=i^2+s
next i
print s
ИЛИ
input a
s=0
while a<=50
s=s+a^2
a=a+1
end while
print s
a = InputBox("Введите число а")
For i = a To 50
s = s + "," + CStr(i * i)
Next
MsgBox s
a = InputBox("Введите число а")
i = a: s = ""
Do While i < 51
s = s + "," + CStr(i * i)
i = i + 1
Loop
MsgBox s