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
Lê Ngọc Anh Thư
Xem chi tiết
Lê Ngọc Anh Thư
Xem chi tiết
Nguyễn Tấn Thịnh
Xem chi tiết
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ả.

Trần Nguyễn Anh Thư
Xem chi tiết
Dang Hong Xuyen
Xem chi tiết
Đào Thụy Anh
11 tháng 8 2015 lúc 16:10

A=(1+2-3-4)+(5+6-7-8)+...+(97+98-99-100)

A=(-4)+(-4)+...+(-4)

         (25 số -4)

A=25.(-4)

A=-100

a.A chia hết cho 2;5 vì A có chữ số tận cùng là 0

A ko chia hết cho 3 vì tổng các chữ số của A ko chia hết cho 3

b.A có 9 ước tự nhiên và A có 18 ước nguyên

Trương Phụng Nhi
28 tháng 3 2016 lúc 7:50

ta cũng có thể tính theo cách này

số số hạng của A là: (100-1):1+1=100(số hạng)

ta ghép 4 số thành 1 nhóm tức là ta có: A=(1+2-3-4)+...+(97+98-99-100)

=> A=(-4)+(-4)+...+(-4)

         ( 25 chữ số -4)

A=25.(-4)

A=-100

a chia hết cho 2 và 5 nhưng không chia hết cho 3

duy doan
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 2 2022 lúc 13:31

undefined

mmmmmmm
Xem chi tiết
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
8 tháng 6 2019 lúc 10:37