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
Сумма всех чисел на гранях кубика 1 + 2 + 3 + 4 + 5 + 6 = 21
В первый раз сумма чисел на верхней и нижней гранях была равна 21 - 12 = 9, во второй раз 21 - 15 = 6. Это разные пары противоположных граней. На оставшейся паре противоположных граней в сумме 21 - 9 - 6 = 6.
3 не может быть записано на одной из граней, входящих в пару с суммой 6: в этом случае число, записанное на противоположной грани будет тоже равно 6 - 3 = 3, что невозможно. Значит, напротив числа 3 написано 9 - 3 = 6.
Может быть не исполнимые, а исполняемые файлы? Тогда эти вирусы так и называются - файловые. Обычно такие файлы с вирусом имеют расширение exe или реже com
Удачи! :)
1+2 =3 аршина ткани требуется на кафтан с заплатками.
1 аршин=0,7112 м, тогда 3 аршина=2,1336 м
2,1336 *500=1066,80=1067 рублей
Ответ: надо заплатить 1067 рублей за кафтан.
7689:16=480 и 9 в остатке
480:16=30 и 0 в остатке
30:16=1 и 14 в остатке
1:16=0 и 1 в остатке
Выписывая остатки в обратном порядке и учитывая, что 14 в шестнадцатеричной системе это E, получим:
7689(10)=1E09(16)
Выполним обратный передов:
1E09 = 1*16^3 + 14*16^2 + 0 + 9 = 4096 + 14*256 + 9 = 7689