Предмет: Информатика,
автор: semenoker
Дана числовая последовательность
И натуральное число n
Паскаль, условие снизу, прошу помочь
Мне нужен код для токо что бы работала программа
(13 задание)
Приложения:

dannaz1324:
нахрен практику
Ответы
Автор ответа:
1
var
k,n:integer;
sum:real;
function Ak( x:integer):real; forward;
function Bk( y:integer):real;
begin
if y=1 then
Bk:=1
else
Bk:=2*sqr(Ak(y-1))+Bk(y-1);
end;
function Ak( x:integer):real;
begin
if x=1 then
Ak:=1
else
Ak:=0.5*(sqrt((Bk(x-1))) + 0.5*(sqrt(Ak(x-1))));
end;
begin
readln(n); sum:=0;
for k:=1 to n do
sum:=sum+Ak(k)*Bk(k);
writeln('Sum: ',sum);
end.
Похожие вопросы
Предмет: Английский язык,
автор: len4ik42
Предмет: Русский язык,
автор: миротворцы
Предмет: Русский язык,
автор: ясмина15
Предмет: Математика,
автор: nadilebova1998
Предмет: Математика,
автор: nadilebova1998