*Отмечу как лучший; если набор букв - жалоба*
Составить БЛОК-СХЕМУ к задаче.
Считая, что Земля - идеальная сфера с радиусом R =6350 км, определите расстояние до линии горизонта от точки с заданной высотой над Землей.

n = 64

2^i = n

2^i = 64

i = 6 бит

ответ. 6 бит.

сначала найдем производную первого порядка

производная из этой функции равна произведению самой функции и производной степени

y'==

теперь второго порядка

тот же принцип из той же функции только домножаем еще на 7/5

y''=

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.