Câu 1 :

uses crt;

var i, n, d : integer;

begin

clrscr;

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

i := 2; d := 1;

while (i < n) and (d = 1) do

begin if n mod i = 0 then

d := 0; i := i + 1; end;

if d = 1 then write(n,' la so nguyen to')

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

readln

end.

Câu 2 :

uses crt;

var i, a, b, uc : integer;

begin

clrscr;

write('Nhap 2 so a, b = '); readln(a, b);

for i := 1 to a do

if (a mod i = 0) and (b mod i = 0)

then uc := i;

write('UCLN(a, b) = ', uc);

readln

end.

Python:

Bài 1:

n = int(input())

def KTSNT(n):
      d = 0
      for i in range(1, n + 1):
                if n % i == 0:
                           d += 1
      if d == 2:
                  return 1
      if d != 2:
                 return 0

if KTSNT(n) == 1:
     print(n, "là số nguyên tố.")

if KTSNT(n) == 0:
     print(n, "là hợp số.")

Bài 2:

a = int(input())

b = int(input())

d = []

e = []

r = []

for i in range(1, a + 1):
      if a % i == 0:
                 d.append(i)

for i in range(1, b + 1):
      if b % i == 0:
                 e.append(i)

for i in d:
      if i in e:
               r.append(i)

print(max(r))