Bài 1:

program Bai1;

uses crt;

var n,i,S: integer;

Begin

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

         S:=1; i:=1;

         while i<=n do

         begin

                  S:=S*i;

                  i:=i+1;

         end;

         write(n,'!=',S);

         readln

End.

Bài 2:

program Bai2;

uses crt;

var N,i,T: integer;

Begin

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

         for i:=1 to N do

              if i mod 2<>0 then T:=T+i;

         write('T = ',T);

         readln

End.

Bài 3:

program Bai3;

uses crt;

var N,i,T: integer;

Begin

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

         for i:=1 to N do

              if i mod 2=0 then T:=T+i;

         write('T = ',T);

         readln

End.

Bài 4:

program Bai4;

uses crt;

var N,i,S: integer;

Begin

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

         S:=1;

         for i:=1 to N do

              if i mod 2<>0 then S:=S*i;

         write('S = ',S);

         readln

End.

Bài 5:

program Bai5;

uses crt;

var N,i,S: integer;

Begin

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

         S:=1;

         for i:=1 to N do

              if i mod 2=0 then S:=S*i;

         write('S = ',S);

         readln

End.

Bài 6:

program Bai6;

uses crt;

var n,i,d: integer;

Begin

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

         d:=0;

         for i:=1 to n do

               if n mod i=0 then d:=d+1;

         if d=2 then write(n,' la so nguyen to')

         else write(n,' khong la so nguyen to');

         readln

End.

Bài 7:

Hình 1 nha bạn, mình phải chạy chương trình nhiều lần mới ra đấy

Bài 8:

Chương trình: Hình 2

Kết quả: Hình 3