program Task;
var x: real;
begin
// Задание a
readln(x);
writeln(abs(x * x + (x + 2.5) / (3 * x)) - 3 * sqrt(sin(2 * x) - 2 / (1-x)));
// Задание b
readln(x);
writeln(5 * sqrt((2 * x) - 3.5) / (8 * x * x) + exp(x + 2) * cos(3 * x));
// Задание c
readln(x);
writeln((abs(5 * x - 6)) / (sqrt(x * x - 3 + 2.4)) - 3 * Ln(2 / (5 * x)))
end.
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
Английский,так как все значения идут на английском и их надо понимать
Ну их очень много,самый крутой сис. блок стоит где-то 200 тыс. руб
Нет, винда не слитит,но и скачиваться программа (игра) в режиме "сна" не будет