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

В Basic - 256 ...

Составить не менее 2 видов циклов.

Question

Информатика

Алена

30 апреля, 01:44

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

В Basic - 256 ...

Составить не менее 2 видов циклов.

+4

Ответы (2)

Знаете ответ?

Ромася · Answer 1

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

Теодорка · Answer 2

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

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

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

В Basic - 256 ...

Составить не менее 2 видов циклов.