Предмет: Информатика,
автор: elenarom0707
Ввести целые числа в переменные А,Б,С.Нечетные значения уменьшить на единицу
Ответы
Автор ответа:
0
Sub Z() 'начало программы с именем Z
Dim a As Integer 'создаем ячейку с именем а для целых чисел
Dim b As Integer 'создаем ячейку с именем b для целых чисел
Dim c As Integer 'создаем ячейку с именем c для целых чисел
a = InputBox("Введите A: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку а
If a Mod 2 = 1 Then a = a - 1
'Если остаток от деления на 2 равен 1, то число а уменьшаем на единицу
b = InputBox("Введите B: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку b
If b Mod 2 = 1 Then b = b - 1
'Если остаток от деления на 2 равен 1, то число b уменьшаем на единицу
c = InputBox("Введите C: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку c
If c Mod 2 = 1 Then c = c - 1
'Если остаток от деления на 2 равен 1, то число c уменьшаем на единицу
MsgBox ("A=" & a & "; B=" & b & "; C=" & c)
'Выводим на экран текст A=. затем число из ячейки а, затем печатаем знаки ; B=, потом число из ячейки b, затем знаки ; C= и число из ячейки с
End Sub 'конец программы
Dim a As Integer 'создаем ячейку с именем а для целых чисел
Dim b As Integer 'создаем ячейку с именем b для целых чисел
Dim c As Integer 'создаем ячейку с именем c для целых чисел
a = InputBox("Введите A: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку а
If a Mod 2 = 1 Then a = a - 1
'Если остаток от деления на 2 равен 1, то число а уменьшаем на единицу
b = InputBox("Введите B: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку b
If b Mod 2 = 1 Then b = b - 1
'Если остаток от деления на 2 равен 1, то число b уменьшаем на единицу
c = InputBox("Введите C: ")
'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку c
If c Mod 2 = 1 Then c = c - 1
'Если остаток от деления на 2 равен 1, то число c уменьшаем на единицу
MsgBox ("A=" & a & "; B=" & b & "; C=" & c)
'Выводим на экран текст A=. затем число из ячейки а, затем печатаем знаки ; B=, потом число из ячейки b, затем знаки ; C= и число из ячейки с
End Sub 'конец программы
Автор ответа:
0
А по циклам не поможете,я там написала вопрос отдельно
Похожие вопросы
Предмет: Русский язык,
автор: starpointer
Предмет: Биология,
автор: suyongk19
Предмет: Литература,
автор: makosha1mm
Предмет: Химия,
автор: Pluzhnikova
Предмет: Математика,
автор: vikamoseykova