В чем ошибка в коде? Паскаль абс var e,a,i,FACTc,x,k,s,n: real;
c:integer;
begin
write('Введите x');
readln(x);
a:=x;
c:=3;
i:=1;
FACTc:=1;
repeat
e:=power(x,c);
repeat
FACTc:=FACTc*i;
i:=i+1;
until i>c;
n:=e/FACTc ;
s:=k;
if (c=3) or (c=7) or (c=11) then k:=a-n+s
else k:=a+n+s;
c:=c+2;
until c>13;
writeln ('s= ', s)
end.

girrrrl    3   01.12.2021 22:27    0