Помогите пожалуйста, я решила и получилось 1, это верно? 

DABC-правильный тетраэдр, M, N, K- середины ребер AB, BC и CD соответственно. Длина вектора DM = sqrt3. Найти длину вектора MN

Тема:Рекуррентные соотношения.

Помогите пожалуйста написать программу для вывода последовательности

Условие: b1=5; bn=(-1)^n * bn-1 -8

минус 1 в степени n, умножить на b n-1 (n-1 ->подстрочный текст) - 8

Начинаю писать программу, а в степень без понятия как возвести

program posledovatelnost;
uses crt;
var i,n:integer; b1,bn:real;
begin clrscr;
writeln (\'введите n\');
readln (n);
b1:=5;
writeln (\'1 элемент = \', b1);
for i:=2 to n do
begin
bn:=...
writeln (i, \'элемент = \', bn);
b1:=bn;
end;
readln
end.

что написать, чтобы считать правильно bn, нужно чтобы работало в TP, поэтому power,pow и exp бесполезны.

Помогите пожалуйста исправить ошибку \"неверная вещественная операция (7.PAS, строка 9)\"

уже не знаю как исправить

задание: для натурального n и действительного x подсчитать сумму S=-1/2 + 1/2^2 - 1/2^3 +...+(-1)^n / 2^n

program summa;
uses crt;
var n,i:integer; s:real;
begin clrscr;
writeln (\'vvedite n\');
readln (n);
s:=0;
for i:=1 to n do
s:=s+exp(ln(-1)*i)/exp(ln(2)*i);
writeln (\'s=\', s);
readln
end.

Помогите пожалуйста исправить ошибку \"неверная вещественная операция (7.PAS, строка 9)\"

уже не знаю как исправить

задание: для натурального n и действительного x подсчитать сумму S=-1/2 + 1/2^2 - 1/2^3 +...+(-1)^n / 2^n

program summa;
uses crt;
var n,i:integer; s:real;
begin clrscr;
writeln (\'vvedite n\');
readln (n);
s:=0;
for i:=1 to n do
s:=s+exp(ln(-1)*i)/exp(ln(2)*i);
writeln (\'s=\', s);
readln
end.

Объясните пожалуйства, как решать?

Помогите пожалуйста с задачай

знаю, что она пустяковая, давно такое делали, сейчас же сломала всю голову(

В кубе A...D1 найдите угол между прямой AC и плоскостью BCD1.

Заранее спасибо.