Câu 1:

        i   |   i mod 2   |  S

l1:    5           1           -3

l2:    6           0            0

l3:    7           1            0

l4:    8           0            4

Câu 2:

         i       |      S

l1:     6             6

l2     10           16

l3     14           30

l4     18           48

Câu 3:

program Hello;
var n,i: longint;
function nt(n:longint): boolean;
begin
    for i:= 1 to trunc(sqrt(n)) do
        if n mod i = 0 then
            nt:= false;
    nt:= true;
end;
begin
    readln(n);
    if nt(n) = true then
        writeln('SNT')
    else 
        writeln('Khong la SNT');
end.

Câu 1: Trong ảnh 1.

Câu 2: Trong ảnh 2.

Câu 3:

uses crt;
var n:longint;
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0)do inc(i);
   nt:=i=a;
end;
begin 
clrscr;
   write('Nhap mot so nguyen: ');readln(n);
   writeln(nt(n));
readln
end.