Предмет: Информатика,
автор: iriska35
Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры)
В Basic - 256....
Составить не менее 2 видов циклов.
Ответы
Автор ответа:
2
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
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
Автор ответа:
0
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
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
Похожие вопросы
Предмет: Русский язык,
автор: chukalinauliya
Предмет: Русский язык,
автор: Marselina2005
Предмет: Русский язык,
автор: Аноним
Предмет: Право,
автор: pivon008