текст программы
program n1;
var i,j:integer;
s2,s,x,f:real;
procedure ryad(x1:real; var s1:real);
const eps=0.001;
var d,y:real;
k:integer;
begin
s1:=0;
x:=2;
k:=1;
d:=0;
repeat
for i:=1 to k do
f:=f*i;
y:=exp(2*k*ln(x));
s1:=s1+d;
until (abs(d))<=eps;
end;
begin
for i:=1 to 5 do
begin
ryad(s,x);
s2:=s2+s;
end;
writeln (s2:10:5);
readln;
end.
Сообщение отредактировано: Zharatustra -