Задать вопрос
13 августа, 17:51

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

В Basic - 256 ...

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

+3
Ответы (2)
  1. 13 августа, 19:27
    0
    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
  2. 13 августа, 20:36
    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
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры) В Basic - 256 ... Составить не менее 2 видов циклов. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы