câu 1:

var n: byte;

Function s(a: byte): longword;

    Var i: byte;

    Begin

       S:=1;

       For i:=1 to a do s:=s*i;

    End;

Begin

     Write('nhap n = '); readln(n);

     Write('S = ', s(n));

     Readln

End.

câu 2:

var a: array[1..100] of integer;

       i, n: byte;

       Tong: longword;

Procedure tinhTong;

    Begin

         Tong:=0;

         For i:=1 to n do

           If (a[i]>0) and (a[i] mod 2 = 0) 

               Then tong:=tong+a[i];

    End;

Begin

    Write('n = '); readln(n);

    For i:=1 to n do 

       Begin

           Write('a[', i, '] = '); readln(a[i]);

       End;

   TinhTong;

   Write('tong: ', tong);

   Readln

End.

Bài 1:

#include <bits/stdc++.h>

using namespaces std;

int main()

{

       int n,s=1;

       cin>>n;

       for(int i=1;i<=n;i++) s*=i;

       cout<<s;

       return 0; 

}

Bài 2:

#include <bits/stdc++.h>

using namespaces std;

int main()

{

       int n,a,s=0;       

       cin>>n;

       for(int i=1;i<=n;i++)

       {

              fi>>a;

              if(a>0 and a%2==0) s+=a;

        }

       cout<<s;

       return 0; 

}