Visual basic

+ 0 -

Sveta154

25 сент. 2013 г., 19:06:20 (10 лет назад)

Sub zadacha2()
Dim x, y As Integer
x = InputBox("Год рождения первой девочки:")
y = InputBox("Год рождения второй девочки:")
If x < y Then MsgBox ("Первая старше")
If x > y Then MsgBox ("Вторая старше")
If x = y Then MsgBox ("Одногодки")
End Sub

+ 0 -

AnyaAnisimova

25 сент. 2013 г., 20:04:31 (10 лет назад)

предупреждение о том,что нельзя выдавать больше 5 банок в одни руки

+ 0 -

12345bhbh

25 сент. 2013 г., 22:59:05 (10 лет назад)

Ну а в условии сказано, что не менее 5 банок в руки. Вот я про что.

+ 0 -

Маша580

26 сент. 2013 г., 1:24:37 (10 лет назад)

Если не более 5, то тогда делаем так (см. решение)

+ 0 -

Denmeleschenko

26 сент. 2013 г., 4:04:00 (10 лет назад)

Черт, хотел в решение добавить, но уже изменять не дает. Тогда напишу здесь

+ 0 -

АртёмЛинник

26 сент. 2013 г., 5:50:19 (10 лет назад)

Sub zadacha1()
Dim x As Integer
Do Until x > 0 And x < 6
x = InputBox("Сколько банок покупаете:")
If x > 5 Then MsgBox ("Не более 5!")
Loop
MsgBox ("Стоимость покупки " & x * 10 & " руб")
End Sub