цикл While Опции

[kvadrat]

Условие:

Вариант решения:

program qweasdf;
const e=0.0001;
var i,n:integer;p,k:real;
begin
writeln('n=?');
readln(n);
i:=1;
k:=(1/1+sqr(n));
p:=1;
while e<k do
begin
p:=p+k;
i:=i+1;
k:=(1/1+sqr(n));
end;
writeln('P=',p);
end.

Укажите пожалуйсто на ошибки и помогите их исправить.

[мисс_граффити]

а зачем ты дублируешь темы?

[kvadrat]

Это не дубль, мы просто сейчас проходим цикл вайл и нам очень много задают задач на эту тему, половину сам еле как решаю а вот эти которые выкладываю они посложней я их самостоятельно не могу решить.

[kvadrat]

[quote name='kvadrat' date='14.05.2008 23:36' post='122957']
Условие:

там условие неполностью... "точность считается достигнутой, когда 1/1+(n*n)<=e
Зачем ваще n я вводил, ведь его надо вывести, всё решение придётся основательно редактировать.