6. рядом с вами находятся две корзины. первая наполнена яблоками разных размеров, вторая — пустая. шаг 1. вы берёте любое яблоко из первой корзины и кладёте его на стол перед собой. шаг 2. вы достаёте следующее яблоко из первой корзины и выполняете сравнение: если яблоко в руках больше, чем яблоко на столе, то вы опускаете яблоко, которое у вас в руках, во вторую корзину; — если яблоко в руках меньше яблока на столе, вы кладёте яблоко на стол, аяблоко, которое лежало на столе, перекладываете во вторую корзину. вы повторяете шаг 2 до тех пор, пока первая корзина не опустеет. какое яблоко окажется на столе в самом конце? попытайтесь сформулировать, что является инвариантом цикла в алгоритме. сформулируйте условие с использованием терминологии, рассмотренной в этом параграфе.

Какой язык програмирования.

Объяснение:

Dim a As String

Dim b As String

Private Sub Command1_Click()

" При нажа на кнопку с цифрой "1", в текстовом поле появится "1"

Text1.Text = Text1.Text & "1"

End Sub

Private Sub Command11_Click()

" После нажатия на "*", присваиваем переменной "a" число из текстового поля №1

a = Text1.Text

" В маленькое текстовое поле, пишем знак "*"

Text2.Text = "*"

" Отчищаем тексотовое поле №1

Text1.Text = ""

End Sub

 

Private Sub Command12_Click()

" При нажатии на "=", присваиваем переменной "b" второе значение, но тоже из текстового поля №1

b = Text1.Text

" Смотрим, какой знак в текстовом поле №2 и делаем нужное действие

If Text2.Text = "*"Then

Text1.Text = a * b

End If

If Text2.Text = "/" Then

Text1.Text = a / b

End If

If Text2.Text = "-" Then

Text1.Text = a - b

End If

End Sub

 

Private Sub Command13_Click()

" Отчищаем все текстовые поля

Text1.Text = ""

Text2.Text = ""

End Sub

 

Private Sub Command14_Click()

" После нажатия на "-", присваиваем переменной "a" число из текстового поля №1

a = Text1.Text

Text2.Text = "-"

Text1.Text = ""

End Sub

 

Private Sub Command15_Click()

" После нажатия на "/", присваиваем переменной "a" число из текстового поля №1

a = Text1.Text

Text2.Text = "/"

Text1.Text = ""

End Sub

 

" Все что ниже можно откоментировать одинаково: при нажатии на кнопку с определенной цифрой, она отабражается в текстовом поле №1

 

Private Sub Command2_Click()

Text1.Text = Text1.Text & "5"

End Sub

 

Private Sub Command3_Click()

Text1.Text = Text1.Text & "4"

End Sub

 

Private Sub Command4_Click()

Text1.Text = Text1.Text & "3"

End Sub

 

Private Sub Command5_Click()

Text1.Text = Text1.Text & "2"

End Sub

 

Private Sub Command6_Click()

Text1.Text = Text1.Text & "6"

End Sub

 

Private Sub Command7_Click()

Text1.Text = Text1.Text & "0"

End Sub

 

Private Sub Command8_Click()

Text1.Text = Text1.Text & "9"

End Sub

 

Private Sub Command9_Click()

Text1.Text = Text1.Text & "8"

End Sub

 

Private Sub Command10_Click()

Text1.Text = Text1.Text & "7"

End Sub

Netflix - американский стриминговый сервис, специализирующийся на показе мультфильмов, фильмов, и сериалов на основе потокового мультимедия. Netflix стремится изменить наш подход к просмотру киноиндустрии в целом.

С 2013 года Netflix производит собственные фильмы, сериалы и телепрограммы. В 2016 году компания выпустила 126 оригинальных сериалов и фильмов — больше, чем любой другой сетевой или кабельный канал. По состоянию на январь 2019 года у компании насчитывалось 139 миллионов подписчиков по всему миру, в том числе 58,49 млн в США.

P.s Если не трудно, поставь пять звезд, нажми " " и сделай лучшим ответом, я хочу получить уровень "отличник" )