Тема: Цикл, Межі, Факторіал
program unit13;
uses crt;
var K,n:integer;
s,x:real;
begin
clrscr;
write('Введiть натуральне число n=');
readln(n);
write('Введiть дiйсне число x=');
readln(x);
S:=K;
for K:=1 to n do
s:=s+(exp(x*ln(k)))/((K*K+1)*(K*K+1));
writeln('S=',s:5:2);
writeln('_______________________');
readkey;
end.
Потрібна допомога, проблема виникає в обрахуванні суми вводимо n=2, x=3, результат s=0.75 за формулою має бути програма видає не вірний результат)