вычислить сумму 2/3+3/4+4/5+...+10/11 в паскале с оператором цикла (я в 7 классе)
Answers & Comments
sellsaccountuses crt; var a, b, c, i, n :integer; s :real; begin clrscr; writeln ('Введите числитель последней дроби, превышающий 1'); readln (n); for i:=2 to n do s:=s+i/(i+1); writeln ('Сумма дробей с точностью до 10 знаков = ', s:0:10); end.
Answers & Comments
var a, b, c, i, n :integer;
s :real;
begin
clrscr;
writeln ('Введите числитель последней дроби, превышающий 1');
readln (n);
for i:=2 to n do
s:=s+i/(i+1);
writeln ('Сумма дробей с точностью до 10 знаков = ', s:0:10);
end.
P.S. Надеюсь на благодарность и лучший ответ.