```python

def nen_day_so(N):
if N == 1:
return 1
else:
return (nen_day_so(N-1) + N) % 1000000000

N = int(input("Nhập N: "))
ket_qua = nen_day_so(N)
print(ket_qua)
```

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==50) dem++;

}

cout<<dem;

return 0;

}

4 số lẻ !

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==27) dem++;

}

cout<<dem;

return 0;

}

a)

Input: số nguyên dương n và dãy số A1,A2,...,An

Output: Số phần tử có giá trị bằng 27

b) Thuật toán liệt kê:

Bước 1: Nhập n và dãy A1,A2,..,An

Bước 2: Dem←0; i←1;

Bước 3: Nếu i>n thì in ra Dem và kết thúc

Bước 4: Nếu Ai = 27 thì Dem←Dem+1;

Bước 5: i←i+1, quay lại bước 3

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==50) dem++;

}

cout<<dem;

return 0;

}

uses crt;
var d,n,k,kt1,i,j,x,kt2,u,kt:longint;
    st1,st2,st:string;
    y:integer;
begin
clrscr;
write('nhap so k='); readln(k);
if k>1 then begin
               d:=1;
               n:=3;
               repeat
                   repeat
                       kt:=0;
                       n:=n+2;
                       for i:=2 to trunc(sqrt(n)) do
                         if n mod i=0 then kt:=1;
                       if kt=0 then str(n,st1);
                   until kt=0;
                   {----------------------------------------}
                   repeat
                       kt:=0;
                       n:=n+2;
                       for j:=2 to trunc(sqrt(n)) do
                         if n mod j=0 then kt:=1;
                       if kt=0 then str(n,st2);
                   until kt=0;
                   {----------------------------------------}
                   kt:=0;
                   st:=st1+st2;
                   val(st,x,y);
                   for i:=2 to trunc(sqrt(x)) do
                     if x mod i=0 then kt:=1;
                   if kt=0 then d:=d+1;
               until d=k;
            end;
if k=1 then write('so nguyen to ghep thu ',k,' la 23')
else writeln('so nguyen to ghep thu ',k,' la: ',x);
readln;
end.