1; 2; 3; 4; 6; 8; 9; 12; 16; 18; 24; 32; 36; 48; 72; 96; 144; 288

Số ước của 288 là 18 (ước)

a) Ư( a ) = { -1 ; 1 ; -2 ; 2 ; -3 ; 3 ; -4 ; 4 ; -6 ; 6 ; -12 ; 12 }

Ư( b ) = { -1 ; 1 ; 2 ; -2 ; -3 ; 3 ; 6 ; -6 ; -9 ; 9 ; -18 ; 18 }

b) Các ước nguyên thuộc a và b là -1 ; 1 ; -2 ; 2 ; -3 ; 3 

2:

a: 7;49

b: 30;60;90;120

a) Ư(12) = { -1; 1; -2; 2; -3; 3; -4; 4; -6; 6; -12; 12 }

b) Ư(-18) = { -1; 1; -18; 18; -2; 2; -9; 9; -3; 3; -6; 6 }

c) ƯC(12; -18) = { -1; 1; -2; 2; -3; 3; -6; 6 }

Tổng : (-1 + 1) + (-2 + 2) + (-3 +3) + (-6 +6) = 0

chịu thôi

uses crt;

var i,n,t,j,kt:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=2 to n do

if n mod i=0 then

begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

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

if kt=0 then t:=t+i;

end;

write(t);

readln;

end.

Dưới đây là một ví dụ về chương trình Pascal để tính tổng các ước số nguyên tố của một số tự nhiên n:

```pascal
program TinhTongUocSoNguyenTo;
var
n, i, j, sum: integer;
isPrime: boolean;
begin
write('Nhap vao so tu nhien n: ');
readln(n);

sum := 0;

for i := 1 to n do
begin
if n mod i = 0 then // Kiểm tra i có là ước số của n không
begin
isPrime := true;

for j := 2 to trunc(sqrt(i)) do // Kiểm tra i có phải là số nguyên tố không begin if i mod j = 0 then begin isPrime := false; break; end; end; if isPrime then // Nếu i là số nguyên tố, cộng vào tổng sum := sum + i; end;

end;

writeln('Tong cac uoc so nguyen to cua ', n, ' la: ', sum);
end.
```

Chương trình trên sẽ yêu cầu bạn nhập vào số tự nhiên n, sau đó tính tổng các ước số nguyên tố của n và hiển thị kết quả.

252=2.2.2.2.2