Ответ(ы) на вопрос:
Гостьvar i:integer; s:real;
begin
i:=1; s:=0;
repeat
s:=s+i/(i+1);
i:=i+1;
until i=7;
writeln('s=',s);
end.
Результат:
s=4.40714285714286
Гостьvar a, b: integer;
s: real;
begin
a:=1;
b:=2;
s:=0;
repeat
s:= s+a/b;
a:=a+1;
b:=b+1;
until b<8;
write(s);
end.
Не нашли ответ?
Похожие вопросы