1.     
        
   n пен  х – белгілі  шамалар.
    шешуі:
   Program E1;
   var i,j,f,n:integer;
       s,x:real;
   begin
      writeln;
      write('n= ді енгіз');
      readln(n);
      write(' x=   енгіз');
      readln(x);
             s:=0;
               for i:=1 to n do begin
               f:=1;
               for j:=1 to i do
               f:=f*j;
               s:=s+(1/f+sqrt(abs(x)));
      end;
   writeln('s=',s:4:2);
   readln;

Жауабы:   n= 3

                    x=36

                    s=19.67

  n – белгілі шама.
Шешуі:

Program E2;

var i,j,n,z,f:integer;
    s,x:real;
begin
writeln;
write('n= -ді енгіз');
readln(n);
s:=0;
f:=1;
z:=1;
for i:=1 to n do

   begin
       z:=z*(-1);
      f:=f*i;
      s:=s+(z*(i+1)/f);
  end;
writeln('s=',s:4:3);
readln;
end.