Số “Hoàn Hảo” là số có tổng các ước bằng chính nó (không kể ước là chính nó), ví dụ: 6=1+2+3, 28=1+2+4+7+14 là các số “Hoàn Hảo”. Viết chương trình Pa

Số “Hoàn Hảo” là số có tổng các ước bằng chính nó (không kể ước là chính nó), ví dụ: 6=1+2+3, 28=1+2+4+7+14 là các số “Hoàn Hảo”. Viết chương trình Pasacal nhập một số tự nhiên n từ bàn phím, in ra màn hình các số hoàn hảo nhỏ hơn số tự nhiên n đã cho trước.

0 bình luận về “Số “Hoàn Hảo” là số có tổng các ước bằng chính nó (không kể ước là chính nó), ví dụ: 6=1+2+3, 28=1+2+4+7+14 là các số “Hoàn Hảo”. Viết chương trình Pa”

  1. program sohoanhao;
    uses crt;
    var n,i : longint;
    function shh(x : integer) : boolean;
    var i,t : integer;
    begin
    t:=0;
    for i:=1 to x-1 do if x mod i = 0 then t:=t+i;
    if t=x then shh:=true else shh:=false;
    end;
    begin clrscr;
    write(‘Nhap so tu nhien n :’); readln(n);
    writeln(‘Cac so hoan hao nhu hon ‘,n,’ la :’);
    for i:=1 to n-1 do if shh(i)=true then writeln(i:3);
    readln
    end.

    Bình luận
  2. Program Hotboy;

    uses crt;

    Var S, n,i,j: longint;

    Begin

        clrscr;

     Write(‘Nhap so n tu ban phim ‘);         Readln(n);

        For i:=1 to n do

        Begin

          S:=0;

          For j:=1 to i do if (i mod j = 0 ) then S:=S+j;

          If S = 2*i then write(i:3:6,’  ‘);

        End;

        Readln

    End.

    Bình luận

Viết một bình luận