Viết CT nhập số m và n là hai số ae , biết m và n là 2 số ae nếu tổng các ước của m và n trừ 1 và chính nó bằng nhau.
Vd : 6 và 25 , có tổng ước trừ 1 và chính nó đều bằng 5
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.
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 n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan chinh')
else writeln(n,' khong la so hoan chinh');
readln;
end.
1:
uses crt;
var i,j,t,kt:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln(t);
readln;
end.
Câu 2:
*Viết chương trình:
uses crt;
var n,p,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for p:=2 to n-1 do
if n mod p=0 then t:=t+p;
writeln('Tong cac uoc that su cua ',n,' la: ',t);
readln;
end.
3.a)n và 2n có tổng các chữ số bằng nhau => hiệu của chúng chia hết cho 9
mà 2n-n=n=>n chia hết cho 9 => đpcm
program so_hoan_hao;
var
n, tong_uoc, i: integer;
begin
writeln('Nhap vao mot so nguyen duong n:');
readln(n);
tong_uoc := 0;
for i := 1 to n-1 do
begin
if n mod i = 0 then
tong_uoc := tong_uoc + i;
end;
if tong_uoc = n then
writeln('YES')
else
writeln('NO');
end.
uses crt;
var m,n,t1,t2,i,j:integer;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
t1:=0;
t2:=0;
for i:=2 to n-1 do
if n mod i=0 then t1:=t1+i;
for j:=2 to m-1 do
if m mod j=0 then t2:=t2+j;
if t1=t2 then writeln(n,' va ',m,' la hai so anh em')
else writeln(n,' va ',m,' khong la hai so anh em');
readln;
end.