• Предмет: Информатика
  • Автор: Devochka123456789
  • Вопрос задан 10 лет назад
< >

Даны целые числа a и b.Написать программу ,которая выводит число 1,если числа равны ,и число 0 в противном случае

Ответы

Ответ дал: Dmon55
0
Dim a As Integer       
Dim b As Integer       
a = InputBox("Введите а")       
b = InputBox("Введите b")       

If a = b Then MsgBox("1") Else MsgBox("0")
Похожие вопросы
Русский язык
2 года назад
В каких словах есть орфограмма парного по глухости-звонкости согласного перед другими согласными?
Русский язык
2 года назад
Исторический корень к слову простыня
Математика
7 лет назад
Собственная скорость катера 12км ч.А скорость течения 3км ч.Найдите скорость катера по течению и против течения.Найдите расстояние которое он пройдет по течению реки за 3 часа
Информатика
7 лет назад
сос Пусть a=3, b=5, c=7. Какие значения будут иметь эти переменные в результате выполнения последовательности операторов: a:=a+1; b:=a+b; c:=a+b; a= b= c=
Математика
10 лет назад
решите уравнение: 7 цел. 11/15(дробь) - (x-3 цел. 4/15(дробь)) = 2 цел. 8/15(дробь) помогите плиз!!!!!!!!!
Математика
10 лет назад
Дед Семён собрал ведро вишни и подсчитал,что в ведро поместилось 758 штук.Семеро его внуков разделиливишни между собой поровну.Когда дед заглянул в ведро,там лежало чуть-чутьна донышке.А сколько
Биология
10 лет назад
4 место зимовки капустной белянки
Математика
10 лет назад
сторона  клумбы  квадратной  формы 8 м . 7/16 всей площади  клумбы засажено  ромашками , а остальная площадь - розами. на какой площади  клумбы посажены розы?         помоги пожалуйста..