Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
Код программы
var
a: integer;
function c(a: integer): integer;
var
b: integer;
begin
b := 30;
a := -a - 3 * b;
if a < b then
c := b + 45
else
c := b - 50;
end;
begin
for a := 1000 downto -1000 do
if c(a) = -20 then begin
writeln('a=', a, ' c(a)=', c(a));
break;
end;
end.
Вывод
a=-120 c(a)=-20
Аналитическое решение.
Видно что <span>c:=b - 50 = 30 - 50 = -20 при a>=b
</span><span>-a-3*b>=b</span>
<span>-a-3*30>=30
</span>-a-90>=30
<span>-a>=120
a<=-120</span>
Антон, Борис, Давид, Григорий Ольга ,Мария, Светлана, Екатерина Норильск + - - - - - - + Москва - - - + - + - - Ростов - - + - - - + - Пятигорск - + - - + - - -================================================================= Антон Екатерина Норильск Борис Ольга Пятигорск Давид Светлана Ростов<span> Григорий Мария Москва</span>