Question

Помогите решить задачу по информатике. Программирование в среде Basic. Найти наименьшее из трех чисел. Какой алгоритм?

Answer 1

 Dim a, b as integer

private Sub Command_click()

a=Val(text1.text)

b=Val(text2.text)

if a>b then label1 caption =a Else label1 coption=b

End Sub

 там по подобию этой

 

Answer 2

СLS

INPUT a

INPUT b

INPUT c

IF a<b AND a<c THEN PRINT "наименьшее число"; a: END

IF b<a AND b<c THEN PRINT "наименьшее число"; b: END

IF c<a AND c<b THEN PRINT "наименьшее число"; c ELSE PRINT "наименьшего числа нет"