ХЕЛП!!!!!! вычислить квадратный корень из суммы квадратов четных элементов в визуал-бейсике.
10-11 класс
|
ЛюБлЮ16
02 мая 2015 г., 3:21:41 (9 лет назад)
Kulbik
02 мая 2015 г., 4:56:16 (9 лет назад)
Sub Main()
Dim a(10) As Integer
Dim c As Integer
Dim R As Random = New Random(100)
For i As Integer = 0 To 10
a(i) = R.Next(10)
Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString())
Next
For i As Integer = 0 To 10
If (a(i) Mod 2 = 0) Then
c = c + a(i) ^ 2
End If
Next
Console.WriteLine(Math.Sqrt(c))
Console.Read()
End Sub
На .NET'oвском =)
Ответить
Другие вопросы из категории
Найти площать и периметр квадрата. Вывести 1, если в сумме площать и периметр превышают 50 и вывести 0, если сумма мешьше 50. Сторону квадрата ввести
самому.
Как решение будет выглядеть в программе Паскаль???
Читайте также
Вы находитесь на странице вопроса "ХЕЛП!!!!!! вычислить квадратный корень из суммы квадратов четных элементов в визуал-бейсике.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.