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

Предыдущий
вопрос Следующий
вопрос

Первый способ (с использованием цикла FOR):

10 INPUT "Введите значение а: ", a
20 sum = 0
30 FOR i = a TO 50
40 sum = sum + i^2
50 NEXT i
60 PRINT "Сумма квадратов всех целых чисел от "; a; " до 50 равна "; sum

Второй способ (с использованием цикла WHILE):

10 INPUT "Введите значение а: ", a
20 sum = 0
30 i = a
40 WHILE i <= 50
50 sum = sum + i^2
60 i = i + 1
70 WEND
80 PRINT "Сумма квадратов всех целых чисел от "; a; " до 50 равна "; sum