Вычислить сумму ряда 1/2+2/3+3/4+4/5+5/6+6/7+7/8+8/9+9/10+10/11 с помощью цикла со счетчиком for

1

Ответы и объяснения

2012-02-10T15:23:45+00:00

program m;
uses crt;
var
k,s:real;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
k:=i/(i+1);
s:=s+k;
end;
writeln(s:2:2);
readkey;
end.