Var a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if b<min then min:=b;
write('Введите c: ');
readln(c);
if c<min then min:=c;
writeln('Наименьшее: ',min);
<span>end.
Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer
</span>a = InputBox("Введите A: ")<span>
min = a
b = InputBox("</span>Введите <span>B: ")
If b < min Then min = b
c = InputBox("</span>Введите <span>C: ")
If c < min Then min = c
MsgBox ("Наименьшее: " & min)
End Sub
Для наибольшего
</span>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
Var a,b,c,p:integer;
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.
Ответ в файле:
vvvvvvvvvvvvvvv
Не знаю но может другие помогут
Формула включений-исключений для двух множеств:
A | B = A + B - A & B
4) фрегат | эсминец = фрегат + эсминец - фрегат & эсминец
фрегат = фрегат | эсминец - эсминец + фрегат & эсминец
фрегат = 4500 - 2500 + 500 = 2500
5) крейсер | линкор = крейсер + линкор - крейсер & линкор
крейсер & линкор = крейсер + линкор - крейсер | линкор
крейсер & линкор = 4800 + 4500 - 7000 = 2300
6) торты | пироги = торты + пироги - торты & пироги
торты = торты | пироги - пироги + торты & пироги
торты = 12000 - 7700 + 6500 = 10800
