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ả.

b) 120 = 2 3  . 3 . 5 có ( 3 + 1 ) . ( 1 + 1 ) . ( 1 + 1 ) = 16 (ước)

Ư(120) = {1; 2; 3; 4; 5; 6; 8; 10; 12; 15; 20; 24; 30; 40; 60; 120}

a) 72 = 2 3 . 3 2  có (3 + 1) . (2 + 1) = 12 (ước)

Ư(72) = {1; 2; 3; 4; 6; 8; 9; 12; 18; 24; 36; 72}

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

  if n mod i=0 then

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Giải :

Vì trong cơ thể người có khoảng 100 000 000 000 nơ-ron

Mà 100 000 000 000 = 10¹¹

=> 100 000 000 000 nơ-ron = 10¹¹ nơ-ron

số noron là : \(10^{11}\text{ tế bào}\)

Số tế bào não là : \(10^{12}\text{ tế bào}\)

Vì 100 tỉ nơ-ron thần kinh tương ứng 10% tổng số tế bào não

Nên tổng số tế bào não là: 100:10% = 100. 10 = 1000 (tỉ nơ-ron thần kinh)

Ta có 100 tỉ = 10¹¹; 1000 tỉ = 10¹²

Vậy não người có tổng số tế bào não là 10¹² tế bào, trong đó có 10¹¹ nơ-ron thần kinh.

Xem thêm tại: https://loigiaihay.com/giai-bai-4-trang-14-sach-bai-tap-toan-6-chan-troi-sang-tao-a93202.html#ixzz78Wftueuc

Vì 100 tỉ nơ-ron thần kinh tương ứng 10% tổng số tế bào não

Nên tổng số tế bào não là: 100:10% = 100. 10 = 1000 (tỉ nơ-ron thần kinh)

Ta có 100 tỉ = ${10}^{11}$; 1000 tỉ = ${10}^{12}$

Vậy não người có tổng số tế bào não là ${10}^{12}$tế bào, trong đó có ${10}^{11}$nơ-ron thần kinh.

Vì 100 tỉ nơ-ron thần kinh tương ứng 10% tổng số tế bào não

Nên tổng số tế bào não là: 100:10% = 100. 10 = 1000 (tỉ nơ-ron thần kinh)

Ta có 100 tỉ = 10111011; 1000 tỉ = 10121012

Vậy não người có tổng số tế bào não là 10121012tế bào, trong đó có 10111011nơ-ron thần kinh.

Xem thêm tại: https://loigiaihay.com/giai-bai-4-trang-14-sach-bai-tap-toan-6-chan-troi-sang-tao-a93202.html#ixzz78cFPAepw

u30={1;2;3;5;6;10;15;30}

Ư(30)=(1;2;3;5;6;10;15;30)