Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры) в basic - составить не менее 2 видов циклов.

odminsovet odminsovet    1   27.06.2019 04:30    13

Ответы
guseva2yul 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 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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика