• Вопрос по информатике:

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

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

    • Автор:

      caseybowers

  • Ответ:

    Dim a As Integer, i As Integer, s As Stringa = InputBox("Введите число а")For i = a To 50s = s + "," + CStr(i * i)NextMsgBox sa = InputBox("Введите число а")i = a: s = ""Do While i < 51s = s + "," + CStr(i * i)i = i + 1LoopMsgBox s

    • Отвечал:

      joeyt9wp
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска