var i,n,s,du,dem:integer;

Begin

While n<=0 do

Begin

Write('N = ');readln(n);

End;

For i:=1 to n do

If n mod i = 0 then

Begin

Write(i:7);

du:=du+1;

s:=s+i;

End;

Writeln('So uoc cua ',n,' la ',du);

Writeln('Tong cac uoc cua ',n,' la ',s);

For i:=1 to s do

If s mod i = 0 then dem:=dem+1;

If dem=2 then write(s,' la so nguyen to')

Else write(s,' khong la so nguyen to');

Readln;

End.

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

uses crt;

var n,i,t,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i div 2 do 

  if i mod j=0 then t:=t+j;

if t=i then write(i:4);

end;

readln;

end.

Số có năm chữ số biết tổng các chữ số của nó là 41 và số đó không thay đổi nếu viết các chữ số của nó theo thứ tự ngược lại. Cho ta biết chữ số ở giữa không thay đổi và là số lẻ > hoặc = 5 (vì 4 chữ số còn lại có tổng lớn nhất 9x4=36), chữ số hàng chục nghìn và hàng đơn vị giống nhau, hàng nghìn và hàng chục giống nhau.

*.Số ở giữ là 5, ta có  99599

*.Số ở giữa là 7 thì tổng 4 số còn lại phải là 41-7=34. Hai chữ số hàng đơn vị và hàng chục có tổng bằng 34:2=17. Ta có 8 và 9. Các số đó là: 89798; 98789.

*.Số ở giữa là 9 thì tổng 4 số còn lại phải là 41-9=32. Hai chữ số hàng đơn vị và hàng chục có tổng bằng 32:2=16. Ta có 8 và 8 hoặc 9 và 7. Các số đó là: 88988; 79997; 97979

Các số đó là: 99599; 89798; 98789; 88988; 79997 và 97979

Uhhxbgdbyuybuvhigeafahveifaeuigfsfeuigesfunosgiefuihssdiojfesiofesijofzsuonzfsoijfoaiebnioaeunfoaeugoafeigaefuonaefunoaệnlbsehimosehiomshejbsielmshkelbklbsegjlbsehmsehbilhse

6 số là : 99599,89798,98789,79997,97979

làm ơi cíuuuu

Tham Khảo:

#include <bits/stdc++.h>

using namespace std;

long long n,m,x,i;

//chuongtrinhcon

long long ucln(long long a,long long b)

{

if (b==0) return(a);

else return(ucln(b,a%b));

}

//chuongtrinhchinh

int main()

{

cin>>m>>n;

x=ucln(m,n);

for (i=1; i<=x; i++) if (x%i==0) cout<<i<<" ";

cout<<endl;

cout<<"Uoc chung lon nhat="<<x<<endl;

cout<<"Boi chung nho nhat="<<(m*n)/x<<endl;

return 0;

}

bạn đó tìm được 6 số

program tim_uoc;

uses crt;

var i,n,tong:integer;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;tong:=0;

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

while i<=n do

if n mod i=0 then

begin

write(i:3);

inc(i);

end;

writeln;

i:=1;writeln('cac uoc chan:');

while i<=n do

begin

if n mod i=0 then 

begin

if i mod 2=0 then write(i:3);

tong:=tong+i;

end;

end;

writeln;

write('tong cac uoc chan:',tong);

readln;

end.

uses crt;

var n,i,t:integer;

begin

clrscr;

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

i:=1;

writeln('Cac uoc cua ',n,' la: ');

while i<=n do

  begin

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

i:=i+1;

end;

writeln;

writeln('Cac uoc chan cua ',n,' la: ');

t:=0;

i:=1;

while i<=n do 

  begin

if (n mod i=0) then

begin

t:=t+i;

write(i:4);

end;

inc(i);

end;

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

readln;

end.