Задача на циклы с условием, ПОМОГИТЕ решить задачу с предусловием и постусловием Опции

[skorpics_guap]

Кто знает, как решить задачу и написать программу на Pascal, 'помогите' !!!!!!

Задание:
1) Вычислите частичную сумму ряда
S=1/1*3 + 1/3*5 + 1/5*7 + ...
2) Вычисления прекратите, когда модуль очередного слагаемого станет меньше 0,001
3) Проверьте насколько сумма приблизилась к значению 1/2
Примечание:

Не использовать счетчики и оператор for!

Заранее огромное спасибо!

Сообщение отредактировано: skorpics_guap - 8.06.2007 22:05

[klem4]

оффтоп

никогда таких грибных тем не видел)))

онтоп

показывай что делал ...

[skorpics_guap]

оффтоп

никогда таких грибных тем не видел)))

онтоп

показывай что делал ...

program SKORPICS;
var
x,x1,x2,x3,s,a,n: integer;
begin
writeln(Введите x3, N);
readlnn(X3,N);
s:=0;
x:=x1;
repeat
a:=1\n;
s:=s=a*a;
x:=x=x3
until |n|<0,001;
writeln('s= ',s:6)
end.

Я знаю что это бред, просто не могу решить задачу!!! помогите???