qmshd.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program qmshd(input,output);
const
  a=500;
var
  i,j,k,count,sumi,sumj:integer;
begin
  count:=0;
  For i:=2 to a do
    begin
        sumi:=0;
        for j:=1 to round(i/2) do
          if i mod j=0 then sumi:=sumi+j;
        for j:=i+1 to a do
          begin
            sumj:=0;
            for k:=1 to round(j/2) do
              if j mod k=0 then sumj:=sumj+k;
            if sumi=sumj then
              begin
                write(i:5,'===',j:3);
                count:=count+1;
                if count mod 5=0 then writeln;
              end;
          end;
    end;
end.