Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyenquochuy
Xem chi tiết
Kiều Vũ Linh
9 tháng 3 2023 lúc 7:37

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.

Shisui Uchiha
Xem chi tiết
Hiền Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 4 2021 lúc 19:46

a)

uses crt;

var n,i,t,j:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i-1 do 

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

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

end;

readln;

end.

Nguyễn Lê Phước Thịnh
26 tháng 4 2021 lúc 19:47

b)

uses crt;

var gt:real;

i,n:integer;

begin

clrscr;

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

gt:=1;

for i:=1 to n do 

 gt:=gt*i;

writeln(gt:0:0);

readln;

end.

hoàng đá thủ
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 8 2023 lúc 21:00

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.

Lê Minh Thuận
30 tháng 8 2023 lúc 16:38

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

Huyền Ngọc
Xem chi tiết
KAITO KID
27 tháng 11 2018 lúc 12:06

Vào đây tham khảo nha ! : Câu hỏi của Phạm Chí Cường - Toán lớp 6 | Học trực tuyến

Linh Nguyễn
Xem chi tiết
8229fd000349e8cf19d075ca...
Xem chi tiết
Akai Haruma
18 tháng 11 2023 lúc 20:34

** Ước chung ở đây mình như là ước tự nhiên. Vì nếu không phải ước tự nhiên thì cứ mỗi ước $d>0$ thì ta lại có ước $-d$ nữa, khi cộng lại thì ra $0$ rồi.

-------------------

Ta có:

$1008=2^4.3^2.7$

$2376 = 2^3.3^3.11$

$\Rightarrow ƯCLN(1008, 2376) = 2^3.3^2=72$

$\Rightarrow ƯC(1008, 2376) \in Ư(72)\in \left\{1; 2; 3; 4; 6; 8; 9; 12; 18; 36; 54;  72\right\}$

$\Rightarrow m = 1+2+3+4+6+8+9+12+18+36+54+72=225$

---------------

$1848=2^3.3.7.11$

$2808= 2^3.3^3.13$

$\Rightarrow ƯCLN(1848, 2808) = 2^3.3=24$

$\Rightarrow ƯC(1848, 2808)\in Ư(24)\in \left\{1; 2; 3; 4; 6; 8; 12;24\right\}$

$\Rightarrow n = 1+2+3+4+6+8+12+24=60$

$\Rightarrow m+n = 225+60= 285$

Lê Quang Duy
Xem chi tiết
Usagi Serenity
Xem chi tiết
Aug.21
15 tháng 4 2019 lúc 9:46

Gọi các ước nguyên tố của số N là p ; q ; r và p < q < r

\(\Rightarrow p=2;q+r=18\Rightarrow\orbr{\begin{cases}q=5;r=13\\q=7;r=11\end{cases}\Rightarrow\orbr{\begin{cases}N=2^a.5^b.13^c\\N=2^a.7^b.11^c\end{cases}}}\)

 Với a ; b; c \(\in\)N  và  \(\left(a+1\right)\left(b+1\right)\left(c+1\right)=12\Rightarrow12=2.2.3\)

Do đó N có thể là \(2^2.5.13;2.5^2.13;2.5.13^2;2^2.7.11;2.7^2.11;2.7.11^2\)

N nhỏ nhất nên \(N=2^2.5.13=260\)