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

Phú Nhuận Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 3 2021 lúc 21:33

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.

Hưng Lê
6 tháng 11 2021 lúc 13:58

program hoan_chinh;

uses crt;

var n,i,s:integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n-1 do

 begin

 if n mod i = 0 then s:=s+i;

 end;

if s=n then writeln('1') {n là số chính phương thì viết 1}

else writeln('0');{n không là số chính phương thì viết 0}

end.

Kamato Heiji
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 3 2021 lúc 21:34

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.

Nguyễn Lê Phước Thịnh
16 tháng 3 2021 lúc 21:35

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.

Yoriichi_Tsugikuni ( ɻɛɑ...
11 tháng 6 2021 lúc 14:57

Dễ mà bạn tự làm đi

Khách vãng lai đã xóa
Đỗ Trọng TÍn
Xem chi tiết
Đỗ Phương Linh
Xem chi tiết
Đoàn Minh Châu
2 tháng 2 2015 lúc 10:14

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

Ran Mori xinh đẹp
16 tháng 1 2017 lúc 14:40

câu 1 bạn châu sai rồi

Lala
Xem chi tiết
Đức Thắng
Xem chi tiết
Phía sau một cô gái
22 tháng 7 2023 lúc 19:56

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.

Hermione Granger
Xem chi tiết
Nguyễn Gia Huy
31 tháng 7 2021 lúc 21:01

1.19

2.198

3.SBT: 63, ST: 6

Khách vãng lai đã xóa
Diệp Mai Hoàng
Xem chi tiết