KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
viết sơ đồ chương trình tìm số hoàn hảo từ 1-32000
By Adalynn
viết sơ đồ chương trình tìm số hoàn hảo từ 1-32000
uses crt; var i,j,t:longint; begin clrscr; for i:=1 to 32000 do begin t:=0; for j:=1 to i do if i mod j =0 then inc(t,j); if t=i*2 then writeln(i); end; readln end.
Program sohoanhao; Uses Crt; Var i,j,tong: integer; Begin Clrscr; Write(‘1,’) For i:= 1 to 32000 do Begin Tong:=0; For j:=i-1 downto 1 do If i mod j = 0 then Tong:=tong+j; If tong = i then write(i,’,’); end;
uses crt;
var i,j,t:longint;
begin
clrscr;
for i:=1 to 32000 do
begin
t:=0;
for j:=1 to i do if i mod j =0 then inc(t,j);
if t=i*2 then writeln(i);
end;
readln
end.
Program sohoanhao;
Uses Crt;
Var i,j,tong: integer;
Begin
Clrscr;
Write(‘1,’)
For i:= 1 to 32000 do
Begin
Tong:=0;
For j:=i-1 downto 1 do
If i mod j = 0 then
Tong:=tong+j;
If tong = i then write(i,’,’);
end;
readln
End.