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
1 отношение между двумя множествами объектов
2 отношение между объектами и множеством объектов
3) отношение между двумя объектами
Ответ:
Г после получения нанотехнологий стало возможно использование магнитных носителей информации
Объяснение:
Var h,v,t,t1:real; i:integer;
begin
v:=200/60; // м/мин
t:=0;
h:=3000;writeln(' h t');
for i:=1 to (4200-3000) div 100 do
begin
t1:=100/v;
t:=t+t1;
h:=h+100;
writeln(h:4:0,' ',t:5:1);
v:=v*0.9;
end;
writeln(t:5:1,' мин');
end.
Результат:
<span> h t
3100 30.0
3200 63.3
3300 100.4
3400 141.5
3500 187.2
3600 238.1
3700 294.5
3800 357.2
3900 426.9
4000 504.4
4100 590.4
4200 686.0
686.0 мин</span>