david-arustamyan1

14.11.2022

Пусть имеется гармоника с максимальной частотой 3000 колебаний в секунду (3КГц Чему равен период между дискретными точками?

Информатика

Ответить

Ответы

Алена

14.11.2022

Sub maxZn()'заполнение массива Dim mas(20) S = "" Randomize For i = 1 To 20 mas(i) = Round(Rnd(100) * 100) S = S + Str(mas(i)) + "," Next i'поиск максимального числа и количества его повторений qty = 1 max = mas(1) 'предполагаем, что максимальное число в первом элементе массива For i = 2 To 20 If mas(i) = max Then qty = qty + 1 End If If mas(i) > max Then max = mas(i) qty = 1 End If Next i MsgBox "последовательность чисел " + S MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty) End Sub
Sub test() Call maxZnEnd Sub
Дана последовательность чисел. выяснить, сколько раз в ней встречается наибольшее число.(basic)

Дана последовательность чисел. выяснить, сколько раз в ней встречается наибольшее число.(basic)

Tsevich333639

14.11.2022

Осуществите превращения по схеме; составить уравнения реакций.

1)Уголь-карбид алюминия- метан- углекислый газ- угарный газ-углекислый газ-карбонат кальция-хлорид кальция-карбонат бария- гидрокарбонат бария- углекислый газ

2)Кальций-нитрид кальция- аммиак-оксид азота(II)-оксид азота(IV)-нитрит натрия-нитрат натрия-азотная кислота-нитрат аммония-аммиак- мочевина(или карбамидОсуществите превращения по схеме; составить уравнения реакций.

2)Кальций-нитрид кальция- аммиак-оксид азота(II)-оксид азота(IV)-нитрит натрия-нитрат натрия-азотная кислота-нитрат аммония-аммиак- мочевина(или карбамид

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Пусть имеется гармоника с максимальной частотой 3000 колебаний в секунду (3КГц Чему равен период между дискретными точками?

Пусть имеется гармоника с максимальной частотой 3000 колебаний в секунду (3КГц Чему равен период между дискретными точками?

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Выделите операторы, образующие тело цикла. [Var i, x : integer;] Begin [x:=0;] For i:=1 to 10 do Begin [Write(x);] [x:=x+i;] end; [Write(i)] End.

Как расшифровать s в желтом квадрате в информатике

Інформатика. Дати відповідь на питання. Написати список Інтернет серверів, що надають e-maіl послуги: російські, українські, інші.

Пример множества, подмножества, пересечения множеств.

Это информатика 9 класс. составить таблицу истинности

(a∨b∨c)^(a∨c) запишите таблицу истинности

Найти отдельно сумму элементов главной и побочной диагонали квадратной матрицы (pascal ABC)

1.Дан условный оператор: if(a<13)theny:=aelsey:=a+7 .Условием является y:=a a<13 все ответы верные y:=a+72.Условный оператор: if(x>3)theny:=x+5elsey:=x−21 .Выбери действие, которое будет вы...

Дан номер месяца – целое число в диапазоне 1-12 (1- январь, 2 –февраль и т. вывести название месяца по заданному числу. на c# решите .

Пусть имеется гармоника с максимальной частотой 3000 колебаний в секунду (3КГц Чему равен период между дискретными точками?

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Выделите операторы, образующие тело цикла. [Var i, x : integer;] Begin [x:=0;] For i:=1 to 10 do Begin [Write(x);] [x:=x+i;] end; [Write(i)] End.

Как расшифровать s в желтом квадрате в информатике

Інформатика. Дати відповідь на питання. Написати список Інтернет серверів, що надають e-maіl послуги: російські, українські, інші.

Пример множества, подмножества, пересечения множеств.

Это информатика 9 класс. составить таблицу истинности​

(a∨b∨c)^(a∨c) запишите таблицу истинности

Найти отдельно сумму элементов главной и побочной диагонали квадратной матрицы (pascal ABC) ​

1.Дан условный оператор: if(a&lt;13)theny:=aelsey:=a+7 .Условием является y:=a a&lt;13 все ответы верные y:=a+72.Условный оператор: if(x&gt;3)theny:=x+5elsey:=x−21 .Выбери действие, которое будет вы...

Дан номер месяца – целое число в диапазоне 1-12 (1- январь, 2 –февраль и т. вывести название месяца по заданному числу. на c# решите .

Это информатика 9 класс. составить таблицу истинности

Найти отдельно сумму элементов главной и побочной диагонали квадратной матрицы (pascal ABC)

1.Дан условный оператор: if(a<13)theny:=aelsey:=a+7 .Условием является y:=a a<13 все ответы верные y:=a+72.Условный оператор: if(x>3)theny:=x+5elsey:=x−21 .Выбери действие, которое будет вы...