задачка на цикл While Опции

[pan]

Вычислить сумму ряда:

x^3 x^5 x^(2n+1)
x=X+ ------- + -------- + ... + ---------------
x^3 x^5 (2n+1)


Считать что требуемая точность достигнута. если очередное слагаемое по модулю меньше E. E=10^(-3).

Моё решение:

ses crt;
var
x,E,s2,s3: real; n,s1,i: integer;
begin
clrscr;
n:=0;
write ('Введите X: ');
readln (x);
while n<0.001 do
begin
s1:=(2*n)+1;
s2:=1;
for i:=1 to s1 do
begin
s2:=s2*x;
end;

s3:=s3+(s2/s1);
writeln ('s3=',s3);
n:=n+1;
end;
writeln ('s3=',s3);
readln;
end.

ПОЖ-ТА!!! проверьте правильно ли я решил задачу!

Добавлено через 7 мин.

Вычислить сумму ряда:

x^3 x^5 x^(2n+1)
x=X+ ------- + -------- + ... + ---------------
x^3 x^5 (2n+1)
Считать что требуемая точность достигнута. если очередное слагаемое по модулю меньше E. E=10^(-3).

Моё решение:

ses crt;
var
x,E,s2,s3: real; n,s1,i: integer;
begin
clrscr;
n:=0;
write ('Введите X: ');
readln (x);
while n<0.001 do
begin
s1:=(2*n)+1;
s2:=1;
for i:=1 to s1 do
begin
s2:=s2*x;
end;

s3:=s3+(s2/s1);
writeln ('s3=',s3);
n:=n+1;
end;
writeln ('s3=',s3);
readln;
end.

ПОЖ-ТА!!! проверьте правильно ли я решил задачу!

вот нормальное условие задачи!