Những câu hỏi liên quan
PB
Xem chi tiết
MG
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)
PL
Xem chi tiết
TD
Xem chi tiết
H24
Xem chi tiết
LD
Xem chi tiết
H24
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)
HT
Xem chi tiết
NT
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)
LT
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)
LH
Xem chi tiết
KL
Xem chi tiết
GK
Xem chi tiết