Visual basic

1) закусочная продает воду по 10 рублей за банку, но не менее 5 банок одному покупателю. Если покупатель запросит более 5 банок, выдать предупреждение, в противном случае - сумму покупки

2) ввести годы рождения двух девочек. Определить старшую из них.

Нужно девушке помочь, а я на паскале сейчас мучу

Question

Информатика

Мелетьюшка

9 августа, 16:58

Visual basic

1) закусочная продает воду по 10 рублей за банку, но не менее 5 банок одному покупателю. Если покупатель запросит более 5 банок, выдать предупреждение, в противном случае - сумму покупки

2) ввести годы рождения двух девочек. Определить старшую из них.

Нужно девушке помочь, а я на паскале сейчас мучу

+2

Ответы (1)

Знаете ответ на вопрос?

Агна · Answer 1

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