1) ndertoni nje program ne pascal qe njehson 
shumen e N numrave te pare nga seria e 
meposhtme: 1+4+7+10+...+N

program ushtrimi1;

procedure llogarit ();
var
 i, n, sh:integer;
begin
sh:= 0;
 writeln ('Jep nr e elementeve');
 readln (n);
 for i:= 1 to n do
  begin
   sh:= sh + (3*i -2);
  end;
 writeln ('Shuma eshte ', sh );
end;

BEGIN
 llogarit ();
 readln ;
end.
-----------------------------------------------------

2)  ndertoni nje program ne pascal qe njehson shumen e N numrave te pare nga seria e meposhtme: 1-4+7-10+...+N

program ushtrimi2;


procedure shume_serie();

var
 i,n:integer;
 sh:integer;
 shej:integer ;
begin
 sh:= 0;
 shej:= 1;
 writeln ('Jep sa kufiza doni te mbledhni') ;
 readln (n);

 for i:=1 to n do
  begin
   sh:= sh + shej * (3*i-2);
   shej:= -shej;
  end;
  writeln ('Shuma eshte ', sh );
end;

BEGIN
 shume_serie();
 readln ;
END.
-----------------------------------------------------
3) ndertoni nje program ne pascal qe njehson shumen e n numrave te pare nga seria e meposhtme: S= 1/1-2/3+3/5-4/7+5/9-...+..

program ushtrimi3;


procedure shume_serie();

var
 i,n:integer;
 sh:real;
 shej:integer ;
begin
 sh:= 0;
 shej:= 1;
 writeln ('Jep sa kufiza doni te mbledhni') ;
 readln (n);

 for i:=1 to n do
  begin
   sh:= sh + shej * (i/(2*i-1));
   shej:= -shej;
  end;
  writeln ('Shuma eshte ', sh:2:2);
end;

BEGIN
 shume_serie();
 readln ;
END.

OSE

program ushtrimi2;


procedure shume_serie();

var
 i,n, num, em:integer;
 sh:real;
 shej:integer ;
begin
 sh:= 0;
 shej:= 1;
 writeln ('Jep sa kufiza doni te mbledhni') ;
 readln (n);

 for i:=1 to n do
  begin
  num:= i;
  em:= 2*i-1;
   sh:= sh + shej * (num/em);
   shej:= -shej;
  end;
  writeln ('Shuma eshte ', sh:2:2 );
end;

BEGIN
 shume_serie();
 readln ;
END.
-------------------------------------------
4)Ndertoni nje program qe njehson shumen e n numrave te pare nga seria e meposhtme: S=1/1*4 + 2/5*8 + 3/9*12 +...

program ushtrimi4;

var
 i,n,num,em:integer;
 sh:real;
BEGIN
 writeln ('Jep numrin e kufizave');
 readln (n);
 i:=1;
 while (i<= n) do
  begin
   num:= i;
   em := (4*i-3)* (4*i);
   sh:= sh + num/em;
   i:= i+1;
 end;
 writeln ('Shuma eshte ', sh:2:2);
 readln;
 end.

-------------------------------------------------------
5) Ndertoni nje program qe njehson shumen e n numrave te pare nga
•seria e meposhtme:
S=(a*1!)/b + (a^2*2!)/b^2 + (a^3*3!)/b^3 + ...
ku a,b jane numra te plote te dhene


program ushtrimi5;

var
 i,n,a,b,fakto:integer;
 sh,p:real;
BEGIN
 writeln ('Jep numrin e kufizave');
 readln (n);
 writeln ('Jepni vlerat e 2 konstanteve');
 readln(a,b);
 i:=1;
 fakto:=1;
 p:= 1;
  while (i<= n) do
  begin
   fakto := fakto * i;
   p:= p * (a/b);
   sh:= sh + p* fakto;
   i:= i+1;
 end;
 writeln ('Shuma eshte ', sh:2:2);
 readln;
 end.

ose

program ushtrimi5;

var
 i,n,a,b,fakto:integer;
 sh,p:real;
BEGIN
 writeln ('Jep numrin e kufizave');
 readln (n);
 writeln ('Jepni vlerat e 2 konstanteve');
 readln(a,b);
 i:=1;
 fakto:=1;
 p:= 1;
  repeat
   fakto := fakto * i;
   p:= p * (a/b);
   sh:= sh + p* fakto;
   i:= i+1;
until (i>n);
 writeln ('Shuma eshte ', sh:2:2);
 readln;
 end.
----------------------------
6) Ndertoni nje program qe njehson shumen e n numrave te pare nga seria e meposhtme:
S= (1+2a)/2! + (1+3a)/3! - (1+4a)/4! -(1+5a)/5!+..
• ku a eshte nje numer i dhene

program ushtrimi6;

var
 i,n,a,shej,num,fakto:integer;
 sh:real;
BEGIN
 writeln ('Jep numrin e kufizave');
 readln (n);
 writeln ('Jepni vlerat e konstantes');
 readln(a);
 sh:=0;
 fakto:=1;
 shej:=1;
 for i:=1 to n do
 begin
   fakto := fakto * (i+1);
   num:= 1+ ((i+1)*a);
   sh:= sh + shej* (num/fakto);
   if i mod 2 = 0 then
    shej:=-shej;
end;
 writeln ('Shuma eshte ', sh:2:2);
 readln;
 end.

-------------------------------------
7) Ndertoni nje program ne paskal qe njehson faktorialin e nje numri n te plote te dhene

program ushtrimi7;

var
 i,n,fakto:integer;

BEGIN
 writeln ('Jep vleren ');
 readln (n);
 fakto:=1;
 for i:=1 to n do
 begin
  fakto:= fakto*i;
 end;
 writeln ('Faktoriali i numrit ',n,' eshte ',fakto);
 readln;
 end.


ose

program ushtrimi7;

var
 i,n,fakto:integer;

BEGIN
 writeln ('Jep vleren ');
 readln (n);
 fakto:=1;
 i:=1;
 while(i<=n) do
 begin
  fakto:= fakto*i;
  i:=i+1;
 end;
 writeln ('Faktoriali i numrit ',n,' eshte ',fakto);
 readln;
 end.


ose

program ushtrimi7;

var
 i,n,fakto:integer;

BEGIN
 writeln ('Jep vleren ');
 readln (n);
 fakto:=1;
 i:=1;
 repeat
  fakto:= fakto*i;
  i:=i+1;
  until (i>n);
 writeln ('Faktoriali i numrit ',n,' eshte ',fakto);
 readln;
 end.

-------------------------------------------------------

ushtrim + 

ndertoni nje program qe njehson shumen s
nga seria e meposhtme:3-5+8-12+17...


program seriplus;

var
// variabli t nenkupton termin (vleren)
 i,n,sh,dif,t,shej :integer;

Begin
 writeln ('Jep nr e kufizave');
 readln (n);
 sh:= 0;
 t:= 3;
 dif:=2;
 shej:=1;
 for i:= 1 to n do
  begin
    sh:= sh + shej* t;
    shej:=-shej;
    t:= t + dif;
    dif:= dif + 1;
  end;
  writeln ('Shuma eshte ', sh);
  readln ;
  end.

---------------------------------------

ndertoni nje program qe njehson shumen s
nga seria e meposhtme:(a+1!)/3 + (a+2!)/5 - (a+3!)/13 - (a+4!)/15 + (a+5!)/23 + ...


program seriplus;

var
// variabli t nenkupton termin (vleren)
 i,n,a,dif,num,em,shej, fakto :integer;
  sh:real;
Begin
 writeln ('Jep nr e kufizave');
 readln (n);
  writeln ('Jep konstanten');
 readln (a);
 sh:= 0;
 dif:= 2;
 em:= 3;
 fakto:=1;
 shej:=1;
 for i:= 1 to n do
  begin
   fakto:= fakto *i;
  num := a+ fakto ;
  sh:= sh + shej* (num/em);
  em:= em+ dif;
  dif:= dif+6;
  if i mod 2 = 0 then
  begin
    shej:= -shej;
    dif:= 2;
  end;
  end;
  writeln ('Shuma eshte ', sh:2:2);
  readln ;
  end.

----------------------------------------------------
ndertoni nje program qe njehson shumen s
nga seria e meposhtme:-2*3 + 5*7 - 12*15 + 27*31 - ...


program seriplus;

var
  i,n,sh,dif,t1,t2,shej:integer;
Begin
 writeln ('Jep nr e kufizave');
 readln (n);

 sh:= 0;
 dif:= 4;
 t1:= 2;
 t2:=3;
 shej:=-1;
 for i:= 1 to n do
  begin
  sh:= sh+ shej * (t1*t2);
  t1:= t1+ t2;
  t2:= t2+ dif;
  dif:= dif * 2;
  shej:= - shej;
  end;
  writeln ('Shuma eshte ', sh);
  readln ;
  end.


ose


program seriplus;

var
  i,n,sh,dif,t1,t2,shej:integer;
Begin
 writeln ('Jep nr e kufizave');
 readln (n);

 sh:= 0;
 dif:= 4;
 t1:= 2;
 t2:=3;
 shej:=-1;
 i:= 1;
 repeat
  sh:= sh+ shej * (t1*t2);
  t1:= t1+ t2;
  t2:= t2+ dif;
  dif:= dif * 2;
  shej:= - shej;
  i:= i+1;
  until (i>n);
  writeln ('Shuma eshte ', sh);
  readln ;
  end.
-------------------------------------