program fantscrin;
var p, a, b, c, x:real; n,i:integer;
begin
write('x = '); readln(x);
p:=1;
for n:=1 to 6 do
a:= 1;
for i:=1 to n+3 do
a:= a * i;
b:= 8 * exp(ln(x)*(2+n));
c:= 1;
for i:=1 to 2*n-1 do
c:= c * i;
p:=p * (a + b) / c;
end;
writeln('P = ', p);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program fantscrin;
var p, a, b, c, x:real; n,i:integer;
begin
write('x = '); readln(x);
p:=1;
for n:=1 to 6 do
begin
a:= 1;
for i:=1 to n+3 do
a:= a * i;
b:= 8 * exp(ln(x)*(2+n));
c:= 1;
for i:=1 to 2*n-1 do
c:= c * i;
p:=p * (a + b) / c;
end;
writeln('P = ', p);
end.