паскаль...2 задачи...

[Оксаночка:)]

цикл :
1.Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен ε.
Общий член ряда имеет вид: см.картинку
вот моя наработка
КОД :
var i:integer;
sum,temp,eps:real;
begin
writeln('vvedit eps');
readln(eps);
sum:=0;
i:=1;
temp:=1/((3*i-2)*(3*i+1));
while abs(temp)>=eps do
begin
sum:=sum+temp;
inc(i);
temp:=1/((3*i-2)*(3*i+1));
end;
writeln('Summa',sum:8:5);
end.

[Sazary]

Чем вас не устроил ответ в этой теме:
http://programmersforum.ru/showthread.php?t=46289
? Зачем нужно было создавать еще одну идентичную?

Вижу, вы проигнорировали замечание на счет тега CODE.

[Оксаночка:)]

что это ???

[Sazary]

что это ???

Тег CODE? "#" на панели в окне редактирования. Я писал об этом в вашей прошлой теме. Вопрос о целесообразности создания текущей остается открытым.

Также замечу, что вопрос по данной задаче отсутствует.