Задано 6 целых численных переменных. получить среднее всех этих переменных. найти сумму квадратов этих переменных, найти разность корней этих переменных. и все это вывести на печать.
помогите пжл составить программу!!!!!

1

Ответы и объяснения

2013-12-05T15:56:04+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
На бейсике моем любимом
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