В переменные А,В,С, ввести числа. Найти минимальное из трех введенных чисел, Помогите...

Question

В переменные А,В,С, ввести числа. Найти минимальное из трех введенных чисел, Помогите пожалуйста,как это сделать?

Answer 1

Var  a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if bwrite('Введите c: ');
readln(c);
if cwriteln('Наименьшее: ',min);
end.

Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer
a = InputBox("Введите A: ")
min = a
b = InputBox("Введите B: ")
If b < min Then min = b
c = InputBox("Введите C: ")
If c < min Then min = c
MsgBox ("Наименьшее: " & min)
End Sub

Для наибольшего
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = InputBox("Введите A: ")
max= a
b = InputBox("Введите B: ")
If b > max Then max = b
c = InputBox("Введите C: ")
If c > max Then max = c
MsgBox ("Наибольшее: " & max )
End Sub

Comments

Вот поэтому лучше отдельные вопросы создавать

---

Сначала найти числа,а потом остальное так лучше?

---

В смысле, про кажую зздачу отдельный вопрос создавать. В комментах неудобно решение писать

---

а ясно,поняла

---

Обьясните мне пожалуйста если не трудно,вот условие сначала пишется в книге а потом переносится в VBA

---

Откуда вы узнаете какое слово нужно вписать и как правильно вписать

---

Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = InputBox("Введите A: ")
b = InputBox("Введите B: ")
c = InputBox("Введите C: ")
If c > a And c > b Then c = c - 1 Else: If b > a And b > c Then b = b - 1 Else: a = a - 1
MsgBox ("A=" & a & "; B=" & b & "; C=" & c)
End Sub

---

Не понял вопроса. В учебнике написано какое слово (команда) для чего нужна и как пишется

---

понятно,в интернете роюсь ничего подобного не нашла,расшифровку я имею ввиду слов,теперь мне почти все понятно

---

учебник нужен