QL

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

NT
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ự
LN
Xem chi tiết
PN
Xem chi tiết
TN
Xem chi tiết
H24
Xem chi tiết
MD
Xem chi tiết
CQ
Xem chi tiết
NQ
Xem chi tiết
4T
Xem chi tiết
NT
Xem chi tiết