Представить математическую запись фрагмента программы и вычислить значение результата по полученой формуле

Наталочка

Представить математическую запись фрагмента программы и обчислить значение результата по полученой формуле, если N=13
R:=0; F:=1; J:=0;
Repeat
J:=J+1;
F:=F*(J+1); R:=R+F/(J+2);
Until J>N.
1 ответ

Наталочка

наверное так:
var
  r,f: real;
  j,n: integer;
begin
  R:=0; F:=1; J:=0;
  write('Введите n: ');
  readln(n);
  Repeat
    J:=J+1;
    F:=F*(J+1); R:=R+F/(J+2);
    writeln('При F = ',f,'   R = ',r:0:3);
  Until J>N;
  readln;
end.