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
I lay my love on you
Xem chi tiết
do thuy linh
30 tháng 12 2018 lúc 16:54

eeeeee

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.

Quỳnh Hoa
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 10 2021 lúc 23:22

#include <bits/stdc++.h>

using namespace std;

long n,i,dem,t;

int main()

{

cin>>n;

dem=0;

t=0;

for (i=1; i<=n;i++)

if (n%i==0) 

{

dem++;

t=t+i;

}

cout<<dem<<" "<<t;

return 0;

}

Nguyễn Quốc Thành An
Xem chi tiết
Văn Ngọc Thùy Trang
14 tháng 1 2018 lúc 14:17

a) Ư(12) = { -1; 1; -2; 2; -3; 3; -4; 4; -6; 6; -12; 12 }

b) Ư(-18) = { -1; 1; -18; 18; -2; 2; -9; 9; -3; 3; -6; 6 }

c) ƯC(12; -18) = { -1; 1; -2; 2; -3; 3; -6; 6 }

Tổng : (-1 + 1) + (-2 + 2) + (-3 +3) + (-6 +6) = 0

nguyễn ngọc khánh linh
14 tháng 1 2018 lúc 13:47

chịu thôi

cao thi trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 21:30

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) if (n%i==0) cout<<i<<" ";

return 0;

}

Do Phuong An
Xem chi tiết
Vương Nguyễn Bảo Ngọc
1 tháng 1 2019 lúc 20:08

Tổng của 9 số bất kì là 1 số nguyên âm =>trong 9 số đó có ít nhất 1 số nguyên âm

Ta loại số đó ra thì còn lại 999 số 

Chia 999 số đó ra thành 111 nhóm, mỗi nhóm có 9 số . Vì 9 số bất kì trong mỗi nhóm có tổng là 1 số nguyên âm

=>Tổng của 111 nhóm là 1 số nguyên âm, nghĩa là tổng của 999 số đó là 1 số nguyên âm

Cộng với số nguyên âm ban đầu thì ra 1 số nguyên âm

Vậy...

Dung Kiều
Xem chi tiết
Kậu...chủ...nhỏ...!!!
25 tháng 12 2021 lúc 19:48

1+17=18

S - Sakura Vietnam
25 tháng 12 2021 lúc 19:49

Ư (17) = {1;17}

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.

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

phung viet hoang
Xem chi tiết
Nguyễn Triệu Yến Nhi
2 tháng 3 2015 lúc 19:54

Bằng 2.

Cậu biết rồi sao còn hỏi.

Tran Anh Tuan
2 tháng 3 2015 lúc 19:56

các ước nguyên của 4 là : -1;1;-4;4;-2;2

=> Tổng= (-1+1)+(-2+2)+(-4+4)=0

Tran Anh Tuan
2 tháng 3 2015 lúc 20:02

các bạn làm kiểu j z mk chẳng pjt

dốt lắm