Số hoàn thiện

[kysibongdem_494]

Mọi người giúp đỡ giùm

Số tự nhiên N được gọi là số hoàn thiện nếu tổng các ước của nó( ko kể nó) bằng N.
VD: số 28 là số hoàn thiện vì 28=1+2+4+7+14;

Yêu cầu: Cho trước 2 số tự nhiên R và S (R<S). Hãy viết chương trình in ra màn hình các số hoàn thiện N nằm trong đoạn [R;S]. Nếu không có số nào thì in ra màn hình là : 'KHONG TÌM THẤY'. Biết R, S nhập từ bàn phím ( 0<R,S<30000).

Input: R=3; S=40
Output: 6 28

Nếu có cách giải rõ ràng và dễ thì chỉ cho em với nha, ko thì cho thuật toán cũng được.
Viết bằng Pascal, đừng dùng chương trình con, em chưa học tới.

[1hakunamatata]

bài này chỉ có cách dùng chương trình con là nhanh nhất.
code
var r,s,k:word;
function sh(x:word):boolean;
var i,s:word;
begin s:=0;
for i:=2 to x-1 do if x mod i = 0 then s:=s+i;
if n=s then sh:=true else dh:=false;
end;
(*****************************)
begin{chuong trinh chinh}
write('nhap R,S: '); readln(R,S);
for k:=R to S do
if sh(k) then ửite(k,' ');
readln;
end.

[kysibongdem_494]

cảm ơn nhiều nhưng em chưa học chương trình con, dùng cách khác được ko ?

[HGMinh95]

cảm ơn nhiều nhưng em chưa học chương trình con, dùng cách khác được ko ?

uses crt;
var i, j, r, s: integer;
    kt, f: boolean;
begin
     clrscr;
     f:=false;
     write(' Nhap r,s: '); readln(r,s);
     for i:=r to s do
         begin
              kt:=false;         s:=0;
              for j:=1 to i-1 do if i mod j=0 then s:=s+j;
              if s=i then
                 begin 
                      f:=true;
                      write(i,' ');
                 end;
         end;
     if not f then write(' KHONG TIM THAY');
     readln
end.

Bài của 1hakunamatata phải sửa lại là for i:=1

[kysibongdem_494]

Sr anh nhiều, có thể do em nhầm lẫn

[HGMinh95]

Anh đọc chưa kĩ đề rồi.
Số hoàn thiện ko phải là số nguyên tố. nhưng dù sao cũng cảm ơn anh nhiều

Em đọc kỹ bài chưa, đây là bài tìm số hoàn thiện chứ ko phải số nguyên tố