Нахождение минимального числа из трёх: перевод с Паскаль - VBA

Формулировка задачи:

var
 a,b,c:real;
Begin
Write('Введите a, b, c: ');
Readln(a,b,c);
if (a<b) and (a<c) then a:=a+b+c
else
if (b<a) and (b<c) then b:=a+b+c
else
if (c<a) and (c<b) then c:=a+b+c
else a:=a+b+c;
write('A:=',a,'; B:=',b,'; C:=',c);

Решение задачи: «Нахождение минимального числа из трёх: перевод с Паскаль»

textual
                            Листинг программы 
                        

                            Dim a, b, c As Double
 
         a = InputBox("введите число a:")
        b = InputBox("введите число b:")
        c = InputBox("введите число c:")
        If (a < b) And (a < c) Then
            a = a + (b + c)
        ElseIf (b < a) And (b < c) Then
                b = b + (a + c)
            ElseIf (c < a) And (c < b) Then
                    c = (a + b) + c
                Else
                    a = a + (b + c)
                End If
 
        MsgBox (" A= " & a & " B= " & b & " C= " & c)
                        

Оцени полезность:

11 голосов , оценка 4.182 из 5

Похожие ответы