Подсчитать значение Y по формуле Y=4X2+2. X меняется в интервале от – 4 до 10 с шагом 2. Вывести на экран значения X и Y. Напомнить, что X2 это функция SQR(x)
Я в диалектах не очень, но вот вспомнил VB.net :) Sub Main() Dim a(10) As Integer Dim b As Integer = 1 Dim c As Integer
Dim R As Random = New Random() For i As Integer = 0 To 10 a(i) = R.Next(12) Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString()) Next
For i As Integer = 0 To 10 If ((a(i) Mod 2 = 0) And (a(i) < 0)) Then b = b * a(i) If ((a(i) Mod 3 = 0) Or (a(i) Mod 5 = 0)) Then c = c + 1 Next Console.WriteLine("Произведение чётных отрицательных: " + b.ToString()) Console.WriteLine("Кол-во кратных 3 или 5: " + c.ToString()) Console.Read() End Sub
Во не для сайта знания ком. Так что готовься к тому что тебе его удалять, но я постараюсь ответить...
Тут два варианта есть:
Первый, это то, что у тебя плохое охлаждения, и после даже обычной работы, у тебя нагреваться процессор или видеокарта и в играх начинает тормозить. По этому при самом запуске компьютера, все части холодные и всё работает как надо. Советую поставить какую то программу для проверки температуры.
Второй вариант, это то, что ты не закрываешь до конца браузер, т.е. ты как бы его закрыл, но он у тебя до сих пор запущен. Такое часто бывает если установлены какие то расширения на него, к примеру какие то VPN или прочие программы, которые не дают полностью тебе его закрыть.
Sub Main()
Dim a(10) As Integer
Dim b As Integer = 1
Dim c As Integer
Dim R As Random = New Random()
For i As Integer = 0 To 10
a(i) = R.Next(12)
Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString())
Next
For i As Integer = 0 To 10
If ((a(i) Mod 2 = 0) And (a(i) < 0)) Then b = b * a(i)
If ((a(i) Mod 3 = 0) Or (a(i) Mod 5 = 0)) Then c = c + 1
Next
Console.WriteLine("Произведение чётных отрицательных: " + b.ToString())
Console.WriteLine("Кол-во кратных 3 или 5: " + c.ToString())
Console.Read()
End Sub
Во не для сайта знания ком. Так что готовься к тому что тебе его удалять, но я постараюсь ответить...
Тут два варианта есть:
Первый, это то, что у тебя плохое охлаждения, и после даже обычной работы, у тебя нагреваться процессор или видеокарта и в играх начинает тормозить. По этому при самом запуске компьютера, все части холодные и всё работает как надо. Советую поставить какую то программу для проверки температуры.
Второй вариант, это то, что ты не закрываешь до конца браузер, т.е. ты как бы его закрыл, но он у тебя до сих пор запущен. Такое часто бывает если установлены какие то расширения на него, к примеру какие то VPN или прочие программы, которые не дают полностью тебе его закрыть.