задано 6 целых численных переменных. получить среднее всех этих переменных. найти сумму квадратов этих переменных, найти разность корней этих переменных.
10-11 класс
|
и все это вывести на печать.
помогите пжл составить программу!!!!!
На бейсике моем любимом
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
Другие вопросы из категории
пожалуйста, для последней зачётки в этом году. В паскале...
виде. Определите ,какие носители пойдут для ее хранения.
Носитель информации Общий объем Занятое пространство
дискета 1.44 МБ 512 КБ
флеш-накопитель 2 ГБ 2040 МБ
CR-RW 700 МБ 716000 КБ
Читайте также
1) Вводятся 100 чисел.Определить сколько среди них положительных и сколько отрицательных.(Числа вводятся в одну переменную в цикле)
2) Алгоритм вычисления суммы квадратов десяти производных чисел, водимых с клавиатуры в процесс выполнения алгоритма
И НАПИШИТЕ ПРОГРАММУ ДЛЯ КАЖДОЙ ЗАДАЧИ
экран. подсчитать k-количество элементов массива значение которых превышает 12 ПОМОГИТЕ СРОЧНО
1)Вычислить значения функции y=(x-1)^3 при изменении x на отрезке -5;5 с шагом 0,2 отпечатать каждое третье отрицательное значение и получить произведение положительных.
2)Найти сумму ряда y=x-(x^2)/2+(x^3)/3-...+((-1)x^n)/n
Плиз срочно надо