program bai_toan;

var

      N, i, sum: integer;

begin

      write('Nhap so N: ');

      readln(N);

      write('Cac uoc cua ', N, ' khong ke ', N, ' la: ');

      for i := 1 to N - 1 do

            if N mod i = 0 then

                  write(i, ' ');

      writeln;

      sum := 0;

      for i := 1 to N - 1 do

      begin

            if N mod i = 0 then sum := sum + i;

      end;

      if sum = N then writeln(N, ' la so hoan hao')

      else writeln(N, ' khong phai la so hoan hao');

      writeln;

      writeln('Tat ca so hoan hao trong pham vi 1 -> ', N, ' la:');

      for i := 1 to N do

      begin

            sum := 0;

            for j := 1 to i - 1 do

            begin

                  if i mod j = 0 then sum := sum + j;

            end;

            if sum = i then writeln(i);

      end;

      readln;

end.

program SoHoanHao;

uses crt;

var

     i, j, n, s: integer;

begin

     clrscr;

     write('Nhap n: ');

     readln(n);

     for i := 1 to n do

     begin

          s := 0;

          for j := 1 to i - 1 do

          begin

               if i mod j = 0 then

                    s := s + j;

               end;

               if s = i then

                    writeln(i);

     end;

     readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n/2;i++)

if (n%i==0) t=t+i;

if (t==n) cout<<"Day la so hoan hao";

else cout<<''Day khong la so hoan hao";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n/2;i++)

if (n%i==0) t=t+i;

if (t==n) cout<<"Day la so hoan hao";

else cout<<''Day khong la so hoan hao";

return 0;

}

Kiểu liệt kê và sơ đồ khối ấy ạ

Program HOC24;

var i,t,k,n: integer;

begin

write('Nhap N: '); readln(n);

t:=0; k=0;

while k=0 do

begin

n:=n+1;

for i:=1 to n do if n mod i=0 then t:=t+i;

if t=n then

begin

write(n);

k:=k+1

end else t:=0;

end;

readln

end.

Bài 3: 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i;

int main()

{

cin>>n;

for (i=0; i<=n; i++)

{

x=int(sqrt(i));

if (x*x==i) cout<<i<<" ";

}

return 0;

return 0;

}

uses crt;

var n,i,kt,j,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('Cac so nguyen to trong khoang tu 2 toi ',n,' la: ');

for i:=2 to n do 

  begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

writeln;

writeln('Cac so chinh phuong trong khoang tu 0 toi ',n,' la: ');

for i:=0 to n do 

  if trunc(sqrt(i))=sqrt(i) then write(i:4);

writeln;

writeln('Cac so hoan hao trong khoang tu 1 toi ',n,' la: ');

for i:=1 to n 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.

#include <bits/stdc++.h>

using namespace std;

string st;

long long d,i,x;

//chuongtrinhcon

bool ktnt(long long n)

{

for (long long i=2; i<=sqrt(n); i++)

if (n%i==0) return(false);

return(true);

}

//chuongtrinhchinh

int main()

{

cin>>st;

d=st.length();

for (i=0; i<=d-1; i++)

{

x=int(st[i)-48;

if ((x>1) and (ktnt(x)==true))  cout<<x<<" ";

}

return 0;

}