11.13.15.17.19.21.23.25.27.29.31.33.35.37.39.41....(шаг +2)т.е. число все время увел на 2
22.44.66.88.110.132.154...(шаг +22)т.е. число все время увел на 22
91.81.71.61.51.41.31.21.11.1....(шаг -10)т.е. число все время уменьна 10
_____________________________________
<span>23.53.73.83.(в числе 37 окончание на 7, а во всех остальных окончание 3)
</span>и так далее
Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub
Репрезентации а лишнее записование
При использовании 65536 цветов для хранения одной точки изображения необходимо log(2)65536 = 16 бит = 2 байта.
Объем переданного файла = 14400*3*60 бит = 14400*3*60/8 байт = 324 000 байт
Количество точек изображения = 324 000 / 2 = 162 000
Размер изображения может быть, например, 810*200 или 400*405