K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

19 tháng 3 2022

qua 8 năm rồi thì vẫn chưa ai giúp anh này....

29 tháng 6 2015

1;3;5;7;9;11;13;15;17;19;21

b, 2;4;6;8;10;12;14;16;18;20; 22

tìm đi

29 tháng 8 2023

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.

30 tháng 8 2023

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

10 tháng 2

Câu a:

Tìm số tự nhiên nhỏ nhất có 6 ước.

Vì 6 = 2.3

Vậy số đó có dạng:

A = 2\(^{x}\).3\(^{y}\)

Theo bài ra ta có:

(\(x+1\)).(y+ 1) = 2.3

Để số đó là nhỏ nhất thì \(x>y\)

nên \(\begin{cases}x+1=3\\ y+1=2\end{cases}\)

\(\begin{cases}x=3-2\\ y=2-1\end{cases}\)

\(\begin{cases}x=2\\ y=1\end{cases}\)

Số nhỏ nhất thỏa mãn đề bài là:

2\(^2.3\) = 12