Tổng các ước là 6
Tổng các ước của28
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.
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.
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
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.
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.
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.
** Ước chung ở đây mình như là ước tự nhiên. Vì nếu không phải ước tự nhiên thì cứ mỗi ước $d>0$ thì ta lại có ước $-d$ nữa, khi cộng lại thì ra $0$ rồi.
-------------------
Ta có:
$1008=2^4.3^2.7$
$2376 = 2^3.3^3.11$
$\Rightarrow ƯCLN(1008, 2376) = 2^3.3^2=72$
$\Rightarrow ƯC(1008, 2376) \in Ư(72)\in \left\{1; 2; 3; 4; 6; 8; 9; 12; 18; 36; 54; 72\right\}$
$\Rightarrow m = 1+2+3+4+6+8+9+12+18+36+54+72=225$
---------------
$1848=2^3.3.7.11$
$2808= 2^3.3^3.13$
$\Rightarrow ƯCLN(1848, 2808) = 2^3.3=24$
$\Rightarrow ƯC(1848, 2808)\in Ư(24)\in \left\{1; 2; 3; 4; 6; 8; 12;24\right\}$
$\Rightarrow n = 1+2+3+4+6+8+12+24=60$
$\Rightarrow m+n = 225+60= 285$
Ta có : Ư(6) = {-1,-2,-3,-6,1,2,3,6}
=> (-1)+(-2)+(-3)+(-6)+1+2+3+6
= [(-1)+1]+[(-2)+2]+[(-3)+3]+[(-6)+6]
= 0+0+0+0
= 0
Ta có : Ư(28) = {-1,-2,-4,-7,-14,1,4,7,14}
=> (-1)+(-2)+(-4)+(-7)+(-14)+1+2+4+7+17
= [(-1)+1]+[(-2)+2]+[(-4)+4]+[(-7)+7]+[(-14)+14]
= 0+0+...+0
= 0