помогите пожалуйста! задача по теме «Цикл с параметром».в...

Question

помогите пожалуйста!

задача по теме «Цикл с параметром».в паскаль

3+4/2+5/3+...+11/9

количество знаков после десятичной точки 5

Answer 1

Program Zadacha;
Var a, b, i: Integer;
sum: Real;
Begin
a := 3;
b := 1;
sum := 0;
For i := 1 To 8 Do
Begin
sum := sum + a / b;
a := a + 1;
b := b + 1;
End;
WriteLn('Результат: ', sum:2:5);
ReadLn;
End.