Решить с помощью Паскаля

Question

Решить с помощью Паскаля

---

Answer 1

1.
var s:real; i:integer; a4,a5:longint;
begin
a4:=1; a5:=5*5;
s:=1/(a4+a5);
for i:=1 to 10 do
 begin
 a4:=a4*4; a5:=a5*5;
 s:=s+1/(a4+a5);
 end;
writeln('s = ',s:9:7);
end.

Результат:
s = 0.0481659

2.
var p:real; i:integer;
begin
p:=1;
for i:=1 to 10 do
 p:=p*(i*i)/(i*i+2*i+3);
writeln('p = ',p:9:7);
end.

Результат:
p = 0.0030822