Предмет: Информатика,
автор: Fankan
Помогите написать прогу в паскале.
дано уравнение
фото внутри
Приложения:
Ответы
Автор ответа:
0
var i,k,a,b:integer;
p,c:real;
begin
p:=0;
for k:= 4 to 8 do
begin
b:=1;
for a:=1 to k+1 do
b:=b*a;
c:=1;
for a:=2 to k do
c:=c*a*a/(a*a+2*a+3);
p:=p+b/c;
end;
writeln(p);
end.
p,c:real;
begin
p:=0;
for k:= 4 to 8 do
begin
b:=1;
for a:=1 to k+1 do
b:=b*a;
c:=1;
for a:=2 to k do
c:=c*a*a/(a*a+2*a+3);
p:=p+b/c;
end;
writeln(p);
end.
Похожие вопросы
Предмет: Алгебра,
автор: pubgmobilecross
Предмет: Английский язык,
автор: zz09
Предмет: Английский язык,
автор: awsrust17
Предмет: Химия,
автор: кисуня4