Quyên Lệ

Số hoàn hảo là những số bằng tổng các ước thực sự của nó.Hãy viết chương trình tìm các số hoà​n hảo nhỏ hơn n

Nguyễn Lê Phước Thịnh
13 tháng 3 2022 lúc 11:14

uses crt;

var n,i,t,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i div 2 do 

  if i mod j=0 then t:=t+j;

if t=i then write(i:4);

end;

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Lê Huỳnh Nhân
Xem chi tiết
Phú Nhuận Nguyễn
Xem chi tiết
Thị Anh Thư Nguyễn
Xem chi tiết
Lala
Xem chi tiết
Minh Nhật Dương
Xem chi tiết
Cao Ngọc Bảo Quyên
Xem chi tiết
Nguyễn Thị Đức Quỳnh
Xem chi tiết
42. Hồ Đăng Quốc Trung....
Xem chi tiết
nguyễn tiến thành
Xem chi tiết