М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Nicktat
Nicktat
10.06.2021 22:48 •  Другие предметы

Form questions and answers using the words given. – Составьте вопросы и ответы используя данные слова. 1. When is John meeting Ann?

👇
Ответ:
chinenko88
chinenko88
10.06.2021
1. When is John meeting Ann? — He’s meeting her at eight o’clock. — Когда Джон встречает Энн? — Он встречается с ней в восемь часов.
2. When is Pat having an interview? — She’s having it on Tuesday morning at ten o’clock. – Когда у Пат интервью? — Во вторник утром в десять часов.
3. When are you going to basketball match? — I’m going to the match this evening at half past seven. — Когда ты идешь на баскетбольный матча? — Я собираюсь на матч сегодня вечером в половине восьмого.
4. When is Robert leaving school? — He’s leaving next summer. — Когда Роберт окончит школу? — Он уходит следующим летом.
5. When is Rachel having lunch with her uncle? — They are having lunch on Saturday at one o’clock. — Когда Рэйчел обедает со своим дядей? — Они обедают в субботу в час.
6. When is Nevita going on holiday? — She’s going on holiday at the beginning of July. — Когда Невита пойдет на каникулы? — Она пойдет на каникулы в начале июля.
4,7(60 оценок)
Открыть все ответы
Ответ:
Зайчонок512
Зайчонок512
10.06.2021
У плоску складову галактики входять зірки Чумацького шляху. Це і є наша галактика з ребра. Там (в нашій галактиці) виявлено близько 154 кульових зоряних скупчень. Вважається, що всього їх понад 200. Особливо багато кульових скупчень в сузір'ях Стрільця і ​​Скорпіона - в напрямку центру галактики. Галактика містить від 200 до 400 000 000 000 зірок. Ядра галактик є центрами їх конденсації і початкового зореутворення. Там знаходяться найстаріші зірки. Сонце розташоване на 20-25 пк вище площині симетрії наше галактики і віддалене від центру на відстань 7,5-8 КПК. Близько до сонця зірки рухаються разом з ним перпендикулярно напрямку в центр галактики. Сонце і зірки в його околицях роблять повний оборот навколо центру галактики приблизно за 240-250 мільйонів років.
4,7(29 оценок)
Ответ:
alina1885
alina1885
10.06.2021
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim A() As Integer
        Dim B() As Integer

        Randomize()
        Dim k As Integer
        Dim i As Integer
        i = Rnd() * 100 + 1
        ReDim A(i)
        For k = 0 To i
            A(k) = Rnd() * -1000 + 500
        Next
        i = Rnd() * 100 + 1
        ReDim B(i)
        For k = 0 To i
            B(k) = Rnd() * -1000 + 500
        Next

        1.
        Dim msg_A As String
        msg_A = VerifySort(A)
        If msg_A <> CStr(A.Length) Then
            MsgBox(msg_A)
        Else
            MsgBox("Массив А упорядочен")
        End If

        Dim msg_B As String
        msg_B = VerifySort(B)
        If msg_B <> CStr(A.Length) Then
            MsgBox(msg_B)
        Else
            MsgBox("Массив B упорядочен")
        End If

        sort(A)
        msg_A = VerifySort(A)
        If msg_A <> CStr(A.Length) Then
            MsgBox(msg_A)
        Else
            MsgBox("Массив А упорядочен")
        End If

        2.
        Dim h As Integer
        h = InputBox("Введите h")
        i = CompareValue(A, h)
        If i <> UBound(A) Then
            MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.")
        Else
            MsgBox("У массива все элементы больше h.")
        End If

        i = CompareValue(B, h)
        If i <> UBound(B) Then
            MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.")
        Else
            MsgBox("У массива все элементы больше h.")
        End If
    End Sub

    Private Function VerifySort(ByRef Massiv() As Integer) As String
        Dim i, j, k As Integer
        Dim msg As String
        For i = Massiv.Length To 0 Step -1
            For j = Massiv.Length - 1 To 1 Step -1
                If Massiv(j) < Massiv(j - 1) Then
                    For k = 0 To Massiv.Length - 1
                        msg = msg & Massiv(k) & vbCrLf
                    Next
                    Return msg
                End If
            Next j
        Next i
        Return Massiv.Length
    End Function
    Private Function sort(ByRef Massiv() As Integer) As Integer
        Dim i, j, Dump As Integer
        For i = Massiv.Length To 0 Step -1
            For j = Massiv.Length - 1 To 1 Step -1
                If Massiv(j) < Massiv(j - 1) Then
                    Dump = Massiv(j)
                    Massiv(j) = Massiv(j - 1)
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
                    Massiv(j - 1) = Dump
                End If
            Next j
        Next i
        Return Massiv.Length
    End Function

    Private Function CompareValue(ByRef Massiv() As Integer, ByVal h As Integer) As Integer
        Dim count As Integer
        Dim i As Integer
        For i = 0 To UBound(Massiv) - 1
            If Massiv(i) > h Then count = count + 1
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
        Next
        Return count
    End Function
4,7(77 оценок)
Новые ответы от MOGZ: Другие предметы
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ