function G(n: integer): integer; forward;
function F(n: integer): integer;
begin
if n = 1 then result := 1
else result := F(n - 1) - G(n - 1)
end;
function G(n: integer): integer;
begin
if n = 1 then result := 1
else result := F(n - 1) + 2 * G(n - 1)
end;
begin
Println(F(5)/G(5));//-2
end.
Выделите на листе прямоугольную область ячеек с левым верхним углов в A1 и запустите программу, которая в каждой строке выделенной области обменяет местами содержимое ячеек с минимальным и максимальным значениями.
Sub abc()
a = Selection.Value
For i = 1 To UBound(a, 1)
aMin = a(i, 1): aMax = aMin
jMin = 1: jMax = 1
For j = 2 To UBound(a, 2)
If aMin > a(i, j) Then
aMin = a(i, j): jMin = j
End If
If aMax < a(i, j) Then
aMax = a(i, j): jMax = j
End If
Next j
Cells(i, jMin).Value = aMax
Cells(i, jMax).Value = aMin
Next i
End Sub
Блин ответ на языке крутится не могу это написать
1-5
2-5
3-32
4-6
5-0
6-бесконечно
7-не исполниться
8-3
9-бесконечно
по моему так