Последние аk =( 1,9x+ 7k)/k! program sum; const e = 0.001; var x, a,summa : real; k : integer; function factorial(n: word): longint; begin if n=0 then factorial : = 1 else factorial : = n*factorial(n-1); end; begin writeln('введите x: '); readln(x); summa: = 0; k: =1; a : = 1.9*x+exp(k*ln(7)); while abs(a) > e do begin summa: =summa + a; k : = k + 1; a : = exp(1.9*x+exp(k*ln(/factorial(k); end; writeln('сумма=', summa: 5: 2); writeln('количество слогаемых=', k-1); end. где ошибка?

KristiDever    1   06.06.2019 02:50    0