Сумма бесконечна так как нет второго предела
Это все ответы для Интернет урока за 8 класс Информатика.
Если K - разрешение, N - глубина, а I - объём, то K умножай на N и получишь биты. Дели на 8 если нужен байт
#9:
bool res = (A % 2 != 0 || B % 2 != 0);
#10:
bool res = (A % 2 != 0 && B % 2 == 0 || A % 2 == 0 && B % 2 != 0);
#11:
bool res = (A % 2 == B % 2);
#12:
bool res = (A >= 0 && B >= 0 && C >= 0);
#13:
bool res = (A >= 0 || B >= 0 || C >= 0);
#14:
bool res = (A >= 0 && B <0 && C < 0 || A < 0 && B >= 0 && C < 0 || A < 0 && B < 0 && C >= 0);
#15:
bool res = (A >= 0 && B >= 0 && C < 0 || A >= 0 && B < 0 && C >= 0 || A < 0 && B >= 0 && C >= 0);
#16:
bool res = (A % 2 == 0 && A % 10 != 0 && A % 100 == 0);
#17:
bool res = (A % 2 != 0 && A % 100 != 0 && A % 1000 == 0);
#18:
bool res = (A == B || A == C || B == C);
#19:
bool res = (A + B == 0 || A + C == 0 || B + C == 0);
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