• В одномерном массиве из N натуральных чисел вычислить сумму квадратов всех нечетных чисел

    Нужна программа написания на Бэйсике. И блок схема.

Ответы 1

  • CLSINPUT "N"; NDIM A(N)FOR I = 1 TO N    INPUT "A"; A(I)NEXTFOR I = 1 TO N    IF A(I) / 2 <> INT(A(I) / 2) THEN        sum = sum + A(I) ^ 2    END IFNEXTPRINT sum

    • Автор:

      patsy
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years