Developing.ru

я совсем уже замучалась...как это решить на паскале??


Вычислить сумму ряда с заданной степенью точности :

n=0, ?(-2/5)в степени n;a=0,01

решать нужно с помощью цикла

должно быть примерно так:

program ff;

uses crt;

var
val: real;
sum: real;
eps: real;

begin
clrscr;
write('eps = ');
readln(eps);
val := 1;
sum := 0;
while(abs(val) >= eps ) do
begin
sum := sum + val;
val := val * (-2 / 5);
end;
writeln('sum = ', sum);
readkey;
end.

eps - точность.