Câu 1.
Program Phan_Tich_1_So_Ra_Thua_So_Nguyen_To;
Uses crt; 
Var N : Integer; 
Procedure NhapSoN( var NN : Integer ); 
Begin 
NN := 0; 
While ( N = 0 ) do 
Begin 
Write( 'Nhap N=' ); Readln(NN ); <br />End; <br />End; <br />Procedure PhantichSoN ( Var N1 : Integer ); <br />Var u,dem:Integer; <br />Begin <br />If ( N1 > 1 ) Then <br />Begin <br />u := 2; dem := 0; <br />While ( N1 > 1 ) do <br />If ( N1 mod u = 0 ) Then <br />Begin <br />dem:=dem+1; <br />Writeln( u); <br />N1 := N1 div u; <br />End <br />Else <br />u:=u+1; <br />End <br />Else <br />Writeln(' Khong the phan tich duoc' ); 
End; 
Begin 
ClrScr; 
Writeln('Phan tich so N thanh tich cua cac so nguyen to :' ); 
NhapSoN( N ); 
PhantichSoN( N ); 
Writeln ('Nhan Enter de ket thuc ...' ); 
Readln; 
End.
Câu 2: 
Bạn đã ra đề sai,số N sao có một chữ số được!