Program Bai7;

Uses Crt;

Var N,i,Kt: Integer;

Begin 

Clrscr;

Write('Nhap so N= '); Readln(N)

      Kt:=0;

    For i:=2 to N-1 do 

If (N mod i=0) then Kt:=1;

If Kt=0 then Write(N', La So Nguyen To')

Else Write(N', Khong Phai La So Nguyen To');

Readln;

End.

-------------------------------------------------------

Program Bai8;

Uses Crt;

Var A:Array[1..500] of Longint;

       N,i,S,Max,Min: Integer;

begin 

Clrscr;

Write('Ban Muon Nhap Bao Nhieu Phan Tu: '); Readln(N);

While A[i]>0 do 

      For i:=1 to N do

begin 

Write('A[',i,']= '); Readln(A[i]);

End;

Write('Mang Vua Nhap La: ');

Writeln;

Write('Cac So Chan Trong Mang La: ');

For i:=1 to N do

If A[i] mod 2=0 then Write(i,' ');

Writeln;

Write('Tong Cac So Le Trong Mang La: ');

For i:=1 to N do

Begin

If A[i] mod 2<>1 then S:=S+A[i];

Write(S);

Writeln;

Write('So Lon Nhat Trong Mang La: ');

Max:=A[1];

For i:= 1 to N do 

Begin 

If Max<A[i] then Max:=A[i];

End;

Write(Max,' ');

Writeln;

Min:=A[1];

For i:= 2 to N do 

Begin 

If Min>A[i] then Min:=A[i];

End;

Write('So Be Nhat Trong Mang La: ',Min);

Readln;

End.

--------------------------------------------------

Program Bai9;

Uses Crt;

Var i,j,k: Integer;

Begin 

Clrscr;

Writeln('______________Tim So_______________');

For i:= 1 to 9 do

For j:= 0 to 9 do

For k:=0 to 9 do 

Begin 

If (100*i+10*j+k)=(i*i*i+j*j*j+k*k*k) then

Writeln('',i,'',j,'',k,'= ',i,'^3+',j,'^3+',k,'^3');

Readln;

End.

_____________________Good Luck___________________

____Chúc Bạn Thi Tốt Do Mình Lam Trên Máy Vs Coppy Qua Đây Hơi Lâu Mong Bạn Thông Cảm____