Задано 6 целых численных переменных. получить среднее всех этих переменных. найти сумму квадратов этих переменных, найти разность корней этих переменных. и все это вывести на печать. составить !
Для удобства вычислений переведём размер сканируемого изображения в дюймы: 20,32 × 20,32 (см) = 8 × 8 (inch).
Сначала найдём количество пикселей по горизонтали, по вертикали, затем общее количество пикселей, исходя из разрешающей сканера. Зная, что каждый пиксель кодируется 4 битами, найдём объём памяти, необходимый для хранения графической информации, что и будет являться информационным объёмом файла.
1) 600 × 8 = 4800 (px) – количество пикселей по горизонтали.
2) 1200 × 8 = 9600 (px) – количество пикселей по вертикали.
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