Циклы с предусловием while

[oksik_777]

Вроде все правильно прописала...почему он выдает 26 ошибку и ставит курсор на DO ? это же служебное слово... в чем дело?!

[DoDge_VipeR]

Код покажи

[oksik_777]

Const MAX=52;
VAR s:real;
i:byte;
begin
s:=0;
i:=1;
while (i<=MAX) or (s+(sqr(i)/((sqr(i))+2*i+3))) do
begin
s:=s+(sqr(i)/((sqr(i))+2*i+3));
i:=i+1;
end;
writeln('s=',s');
end.

[vovk]

or (s+(sqr(i)/((sqr(i))+2*i+3))) do

это точно не boolean, тут какоето сравнение должно быть

[Stilet]

(s+(sqr(i)/((sqr(i))+2*i+3)))

А где здесь условие? Тут выражение чистого рассчета но без сравнения с чем-то.

[oksik_777]

спасибо) поняла я с чем сравнить нужно! получилось!