Viết chương trình tìm số hoàn hảo bé hơn 100 (giúp mình với )
K
Khách
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.
Những câu hỏi liên quan
uses crt;
var i,j,t:integer;
begin
clrscr;
for i:=1 to 99 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.