<em>VAR</em>
<em> ind: LongInt;</em>
<em> b: Array [1..10] of Real;</em>
<em>BEGIN</em>
<em> Writeln('Введите 10 чисел (элементы массива):');</em>
<em> for i := 1 to 10 do Read(b[i]);</em>
<em> </em>
<em> Write('Введите индекс эл. массива: ');</em>
<em> Read(ind);</em>
<em> Write(b[ind]);</em>
<em>END.</em>
<u>Вспомогательный алгоритм:</u>
использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(1,1)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (-1,2)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
<span>кон
<u>Основной алгоритм:</u>
</span>использовать Чертежник
алг
нач
нц 5 раз
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(1,1)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (-1,2)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
поднять перо
сместиться на вектор(4,-3)
кц
<span>кон</span>
158кб=158*2^13 бит
1кб=2^13 бит
Проследим действия:
(3+4)х4:(8-6)=14
7х4:2=14
28:2=14
14=14
в чем сложность?:)