Sub MyTest()
Dim a As Variant, i As Integer
a = Range("A1:B5")
For i = 1 To 5
Cells(i, 3) = S(a(i, 1), a(i, 2))
Next i
End Sub
Function S(ByVal x As Double, ByVal y As Double) As Double
Dim i As Integer
If x < y Then
S = 0
For i = 1 To 20
S = S + x ^ i * y ^ (i + 1)
Next i
ElseIf x > y Then S = (x * y) ^ 2
Else: S = x * x + y * y
End If
End Function
x - по колонке A1:A5, y - по колонке B1:B5, результат в C1:C5
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-34,33); a.Println;
Sort(a,(x,y)->x>=y); a.Println
end.
<u>Пример</u>
n= 15
-23 29 25 -10 -13 28 -13 -14 -2 -26 -20 26 10 -18 10
29 28 26 25 10 10 -2 -10 -13 -13 -14 -18 -20 -23 -26
Select что_искать from где_искать where условие_поиска
Количество точек изображения: 1536*1024=1572864
Необходимый объём: 1572864 *36=56623104 бит=
7077888 байт=6912кб=6,75Мб
1. Царевич Елисей опрашивал Солнце, Луну и Ветер
2. Злая мачеха доверяла только своему зеркальцу
3. Царь Салтан узнавал о дальних странах от заморских купцов
4. Царевич Гвидон получал информацию от них же, а также лично, прилетая к царю Салтану в образе комара, мухи и осы
5. Царь Додон узнавал о набегах врагов от Золотого петушка.
Лиза, тебе разве сказок в детстве не читали?