Bài 1: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

kt:=0;

for i:=2 to n-1 do 

 if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Bài 2: 

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

 if n mod i=0 then write(i:4);

readln;

end.

THAM KHẢO!

def is_prime(n):

 if n <= 1:

  return "KHÔNG"# Trường hợp n <= 1 không phải số nguyên tố

 elif n <= 3:

  return "CÓ"# Trường hợp n = 2 hoặc n = 3 là số nguyên tố

 elif n % 2 == 0:

  return "KHÔNG"# Trường hợp n chẵn lớn hơn

#include <bits/stdc++.h>
using namespace std;
long long n;
//chuongtrinhcon
bool ktnt(long long n)
{
    if (n<2) return(false);
    else
    for (int i=2; i*i<=n;i++)
        if (n%i==0) return (false);
    return(true);

}
//chuongtrinhchinh
int main()
{
    //freopen("KTSNT.INP","r",stdin);
    //freopen("KTSNT.OUT","w",stdout);
    cin>>n;
    if (ktnt(n)==true) cout<<"1";
    else cout<<"0";
    return 0;
}

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long a;

int main()

{

cin>>a;

if (a%2==0) cout<<"la so chan";

else cout<<"La so le";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[4],n,x;

int main()

{

cin>>n>>x;

for (i=1; i<=n; i++) cin>>a[i];

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

if (a[i]==x)

{

cout<<"YES";

break;

}

cout<<"NO";

return 0;

}

\(P=n^3+7n^2+25n+39=\left(n+3\right)\left(n^2+4n+13\right)\)

 Hiển nhiên \(\left\{{}\begin{matrix}n+3>1\\n^2+4n+13>1\end{matrix}\right.\)\(\Rightarrow\left\{{}\begin{matrix}n+3=p^a\\n^2+4n+13=p^b\end{matrix}\right.\) với \(b>a>0\)

\(\Rightarrow\left\{{}\begin{matrix}n+3⋮p\\n^2+4n+13⋮p\end{matrix}\right.\) \(\Rightarrow n^2+4n+13-\left(n+3\right)\left(n+1\right)⋮p\)

\(\Rightarrow10⋮p\Rightarrow\left[{}\begin{matrix}p=2\\p=5\end{matrix}\right.\)

- TH1: \(p=2\Rightarrow n+3=2^a\)

Do n nguyên dương \(\Rightarrow n+3\ge4\Rightarrow a\ge2\Rightarrow2^a⋮4\)

\(\Rightarrow n+3⋮4\Rightarrow n=4k+1\)

Đồng thời \(n^2+4n+13=2^b\), hiển nhiên \(b>2\Rightarrow n^2+4n+13⋮4\)

\(\Rightarrow\left(4k+1\right)^2+4\left(4k+1\right)+13⋮4\)

\(\Rightarrow4k\left(4k+6\right)+18⋮4\) (vô lý) 

\(\Rightarrow p=2\) không thỏa mãn

TH2: \(p=5\) \(\Rightarrow\left\{{}\begin{matrix}n+3=5^a\\n^2+4n+13=5^b\end{matrix}\right.\)  

\(\Rightarrow\left(n+1\right)\left(n+3\right)+10=5^b\)

\(\Rightarrow5^a\left(5^a-2\right)+10=5^b\)

\(\Rightarrow5^{a-1}\left(5^a-2\right)+2=5^{b-1}\)

- Với \(a=1\Rightarrow b=2\)

- Với \(a>1\Rightarrow\) vế trái chia 5 dư 2, vế phải chia hết cho 5

\(\Rightarrow\) Không tồn tại a;b nguyên thỏa mãn

Vậy \(a=1\Rightarrow n=5^1-3=2\)

Câu 1: 

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: kt←0; i←2;

Bước 3: Nếu n chia hết cho i thì kt←1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=0 thì n là số nguyên tố

không thì không phải

Bước 7: Kết thúc

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: kt←0; i←2;

Bước 3: Nếu n chia hết cho i thì kt←1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Nếu kt=0 thì n là số nguyên tố

không thì không phải

Bước 7: Kết thúc

Câu 1: 

uses crt;

var kt,n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Input: số nguyên N

Output: N là chẵn hoặc N là lẻ

- Thuật toán liệt kê:

+ Bước 1: Nhập N

+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán

- Thuật toán sơ đồ khối:

Input: dãy A và N phần tử

Output: Là cấp số cộng hoặc không là cấp số cộng

Thuật toán:

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

- Bước 2: d←A2-A1; i←2;

-Bước 3: Nếu i>N thì in ra kết quả là cấp số cộng rồi kết thúc

- Bước 4: Nếu A_i+1-A_i khác d thì chuyền xuống bước 6

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

- Bước 6: Thông báo không phải là cấp số cộng rồi kết thúc