79

Сижу на информатике) 8 класс. Turbo basic. Тема: массивы. Нужно срочно найти…

24 февраля 2023

Сижу на информатике) 8 класс. Turbo basic. Тема: массивы. Нужно срочно найти произведение четных отрицательных чисел. Или найти количество кратных трем илипяти.

категория: информатика

66

Я в диалектах не очень, но вот вспомнил 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

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...