program vichislenie_function;
var
x, y: real;
begin
writeln('Введи х');
readln(x);
y := x * x + 2 / (7 * x) - 9;
writeln('y=', y:5:2);
end.
2) Обычно используют как "НЕ"
3) определение адреса в электронной почте
4) остаток от деления нацело
5)Умножение
6)Выделение
7)
8)Деление
9)Выделение (не знаю как объяснить разницу с 6)
10)Окончание команды
11)Больше/Меньше
Option Explicit
Sub laba9()
Dim N As Integer, a() As Integer, i As Byte, j As Byte, min As Integer, l1 As Integer, l2 As Integer
Dim b() As Integer
N = Val(InputBox("Введите размерность массива"))
ReDim a(N, N)
Sheets("Лист1").Select
Sheets("Лист1").Range("A1:Z26").Clear
For i = 1 To N
For j = 1 To N
a(i, j) = Rnd * 100
Cells(i, j) = a(i, j)
Next j
Next i
min = a(1, 1)
l1 = 1
l2 = 2
For i = 1 To N
For j = 1 To N
If a(i, j) < min Then
min = a(i, j)
l1 = i
l2 = j
End If
Next j
Next i
ReDim b(N - 1, N - 1)
For i = 1 To l1 - 1
For j = 1 To l2 - 1
b(i, j) = a(i, j)
Next j
For j = l2 + 1 To N
b(i, j - 1) = a(i, j)
Next j
Next i
For i = l1 + 1 To N
For j = 1 To l2 - 1
b(i - 1, j) = a(i, j)
Next j
For j = l2 + 1 To N
b(i - 1, j - 1) = a(i, j)
Next j
Next i
For i = 1 To N - 1
For j = 1 To N - 1
Cells(i + N + 2, j) = b(i, j)
Next j
Next i
End Sub
Используя формулы из логики, упростим данное выражение (в частности формула замена импликации=> для переменных А и В А=>B = (не)А V В
Затем подставляем входные данные