Những câu hỏi liên quan
Phạm Công Bằng
Xem chi tiết
Mon cần giúp gấp!
19 tháng 3 2022 lúc 19:19

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

Bình luận (0)
Pham Thi Lam
Xem chi tiết
thùy dương
Xem chi tiết
Monster
Xem chi tiết
Lê Thành Đạt
Xem chi tiết
ronaldoxunghe
29 tháng 6 2015 lúc 6:48

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

Bình luận (0)
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.

Bình luận (1)
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ả.

Bình luận (0)
Lê Xuân Hoan
Xem chi tiết
Khách vãng lai
Xem chi tiết
Gấu Koala
Xem chi tiết