Нажмите для просмотра прикрепленного файла

const
E=0.001;

var
Sum:real;
s:real;
n:integer;

begin
n:=1;
Sum:=0.0;
repeat
s:=3/(sqr(n)+1);
n:=n+1;
Sum:=Sum+s;
until abs(s)<E;
writeln('Sequence sum=',Sum:4:4,' Last element=',s:4:4);
readln;
end.

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

А какие элементы нужны?

наверное элементы которые суммируют

Тогда скопируй с небльшим изменением строку writeln в тело цикла

  repeat
    writeln(n:2, '. element ', s);
  until ....

а куда это поставить?

Госпади,конешно же между repeat until человек же написал " в тело цикла"
В итоге будет выглядеть так

const
E=0.001;

var
Sum:real;
s:real;
n:integer;

begin
n:=1;
Sum:=0.0;
repeat
s:=3/(sqr(n)+1);
writeln(n:2, '. element ', s);
n:=n+1;
Sum:=Sum+s;
until abs(s)<E;
writeln('Sequence sum=',Sum:4:4,' Last element=',s:4:4);
readln;
end.

И не забывайте обрамлять ваш в код в теги!!!!!

Сорри, конечно же для неопытного человека я должен был написать подробнее. Но, Ира, ты тоже мух не лови. В программе всего раз встречается until.

хорошо, поняла, спасибо :3

склади на сішці