clasa XI-A, 16.03-20.03, Tema: Functii si proceduri. Rezolvarea problemelor.

Exemple:
1. Scrieti o functie care determina suma cifrelor unui numar natural.
    Function Sum(N:Longint):Integer;
    Var S:Integer; C:0..9;
     Begin  S:=0;
          Repeat  C:=N Mod 10; N;=N Div 10; S:=S+C Until N=0;
     Sum:=S
     End;
  2. Scrieti o functie care determina daca un numar natural este prim.
    Function Prim(N:Integer):Boolean;
    Var I:Integer; V:Boolean;
     Begin  I:=2; V:Boolean;
          While V And (I<=N Div 2) Do
          If N Mod I=0 Then V:=False Else Inc(I);
     Prim:=V
     End;
3. Scrieti o procedura care afiseaza la ecran divizorii unui numar natural in ordine descrescatoare.
    Procedure Pro(N:Integer);
    Var I:Integer;
     Begin  For I:=N Downto 1 Do
          If N Mod I=0 Then Write(I,' ')
     End;
 4. Scrieti o procedura care afiseaza la ecran descompunerile unui numar natural in suma de 3 termeni diferiti de zero. Descompunerile le care difera doar ordinea termenilor sunt considerate distincte.
    Procedure Pro(N:Integer);
    Var I,J,K:Integer;
     Begin
     For I:=1 To N-2 Do
     For J:=1 To N-2 Do
     For K:=1 To N-2 Do
          If I+J+K=N Then Writeln(I,' ',J,' ',K)
     End; 

      Sarcini pentru rezolvare:
1. Scrieti o functie care determina produsulcifrelor unui numar natural.     
2. Scrieti o functie care determina daca un numar natural este perfect.
3. Scrieti o procedura care afiseaza la ecran divizorii unui numar natural in ordine crescatoare.
4. Scrieti o procedura care afiseaza la ecran descompunerile unui numar natural in suma de 4 termeni diferiti de zero. Descompunerile le care difera doar ordinea termenilor sunt considerate aceleasi.
Rezultatele le transmiteti la adresa de e-mail: toloaca.svetlana@gmail.com