#include<conio.h>
#include<iostream>
using namespace std;
int SoNguyenTo(int n)
{
 if(n==2)
  return 1;
 for(int i=2; i<n; i++)
 {
 if(n%i==0)
 
  {
   return 0;
   break;
  } 
 return 1;
 }



}
void tong(int n)
{
 int tong=0;
 for(int i=1; i<=n; i++)
 {
 tong=tong+i;
 }
 cout<< "Tong cac so tu 1 toi n la: "<< tong<<endl;


}
void DemSoNguyenTo(int n)
{
 int dem=0;
for(int i=1; i<=n; i++)
{
if(SoNguyenTo(i)==1)
 dem++;
}
cout<< "Co "<<dem<<" so nguyen to tu 1 toi  "<<n<<endl;

}
void Uoc(int n)
{
 cout<< "Cac uoc so cua "<<n<<" la: ";
 for(int i=1; i<=n; i++)
 {
 if(n%i==0)
  cout<< " "<<i<<" ";
 
 }



}
void TongCacSoCuan(int &n)
{
 int tam=n;
 int tong=0;
 int so;
 while(n>0)
 {
 so=n%10;
 tong=tong+so;
 n=n/10;
 }
 cout<<"\nTong cac chu so trong "<<tam<< " bang: "<<tong;


}
int main()
{
int n;
cout<< "Nhap vao n: ";
cin>> n;
int socuoicung=n%10;
cout<< "\nChu so cuoi cung cua n la: "<<socuoicung<<endl;
tong(n);
DemSoNguyenTo(n);
Uoc(n);
TongCacSoCuan(n);
getch();
return 0;
}

program thuchien;

uses crt;

var n,d,i,j:integer;

       t:longint;

       kt:boolean;

begin

clrscr;

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

writeln('Chu so cuoi cung cua ',n,' la: ',n mod 10);

t:=0;

for i:=1 to n do

 t:=t+i;

writeln('Tong cac so tu 1->',n,' la: ',t);

d:=0;

for i:=2 to n do

 begin

  kt:=true;

  for j:=2 to trunc(sqrt(i)) do

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

  if kt=true then d:=d+1;

 end;

writeln('Co ',d,' so nguyen to tu 1->',n);

write('Cac uoc cua ',n,' la:');

for i:=1 to n do

 if n mod i=0 then write(' ',i);

writeln;

t:=0;

while n>0 do

 begin

  t:=t+n mod 10;

  n:=n div 10;

 end;

write('Tong cac chu so la: ',t);

readln

end.