
Вопрос задан 17.01.2020 в 21:22.
Предмет Информатика.
Спрашивает Меновщиков Павел.
Задано 6 целых численных переменных. получить среднее всех этих переменных. найти сумму квадратов
этих переменных, найти разность корней этих переменных. и все это вывести на печать.помогите пжл составить программу!!!!!

Ответы на вопрос

Отвечает Завальнюк Анастасія.
На бейсике моем любимом
Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer, a5 As Integer
Dim a6 As Integer, Sred As Double, SumQuad As Double, RaznSqrt As Double
Print "введите 1 число"; Input a1
Print "введите 2 число"; Input a2
Print "введите 3 число"; Input a3
Print "введите 4 число"; Input a4
Print "введите 5 число"; Input a5
Print "введите 6 число"; Input a6
Sred = (a1+a2+a3+a4+a5+a6) / 6
Print "Среднее = ", Sred
SumQuad = a1*a1+a2*a2+a3*a3+a4*a4+a5*a5+a6*a6
Print "Сумма квадратов = ", SumQuad
RaznSqrt = Sqrt(a1) - Sqrt(a2) - Sqrt(a3) - Sqrt(a4) - Sqrt(a5) - Sqrt(a6)
Print "Разность корней равна", RaznSqrt
End
Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer, a5 As Integer
Dim a6 As Integer, Sred As Double, SumQuad As Double, RaznSqrt As Double
Print "введите 1 число"; Input a1
Print "введите 2 число"; Input a2
Print "введите 3 число"; Input a3
Print "введите 4 число"; Input a4
Print "введите 5 число"; Input a5
Print "введите 6 число"; Input a6
Sred = (a1+a2+a3+a4+a5+a6) / 6
Print "Среднее = ", Sred
SumQuad = a1*a1+a2*a2+a3*a3+a4*a4+a5*a5+a6*a6
Print "Сумма квадратов = ", SumQuad
RaznSqrt = Sqrt(a1) - Sqrt(a2) - Sqrt(a3) - Sqrt(a4) - Sqrt(a5) - Sqrt(a6)
Print "Разность корней равна", RaznSqrt
End



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, я могу помочь вам с написанием программы на языке программирования. Однако уточните, на каком языке программирования вы хотели бы написать эту программу? Я могу предоставить пример на популярных языках, таких как Python, JavaScript или Java.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili