Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры) В Basic - 256.... Составить не менее 2 видов циклов.
Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры) В Basic - 256.... Составить не менее 2 видов циклов.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Первый способ (с использованием цикла FOR):
10 INPUT "Введите значение а: ", a20 sum = 0
30 FOR i = a TO 50
40 sum = sum + i^2
50 NEXT i
60 PRINT "Сумма квадратов всех целых чисел от "; a; " до 50 равна "; sum
Второй способ (с использованием цикла WHILE):
10 INPUT "Введите значение а: ", a20 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