* Ý nghĩa các câu lệnh :

- uses crt;

=> Khai báo thư viện crt

- var N, i : integer;

=> Khai báo biến N và i với kiểu dữ liệu là số nguyên

- begin

=> Từ khoá bắt đầu thân chương trình

- clrscr;

=> Lệnh xoá màn hình

- write('Nhap so N = '); readln(N);

=> In Nhap so N và gán giá trị nhập từ bàn phím vào biến N

- writeln;

=> Cách 1 dòng

- writeln('Bang nhan ', N');

=> In Bang nhan N

- writeln;

=> Cách 1 dòng

- for i := 1 to 10 do writeln(N,' x ', i : 2, ' = ', N * i : 3);

=> Giá trị i chạy từ 1 đến 10 và in N x i = N * i

- readln

=> Tạm ngừng chương trình cho tới khi người dùng nhấn phím Enter

- end.

=> Từ khoá kết thúc chương trình 

* Kết quả chương trình :

- Vd : n = 2 thì kết quả chương trình 

2 x 1 = 2

2 x 2 = 4

2 x 3 = 6

2 x 4 = 8

2 x 5 = 10

2 x 6 = 12

2 x 7 = 14

2 x 8 = 16

2 x 9 = 18

2 x 10 = 20

=> Kết quả chương trình sẽ in ra bảng nhân của một số n

a) b) 

Sau "//" là comment, không ảnh hưởng đến lệnh khi chạy

Mình làm kết hơn 2 câu 1 lần luôn đỡ phải làm dài

.

Uses crt;

Var N,i: integer;

Begin

     Clrscr;                                                            // Xóa màn hình

     Write('Nhap so N='); Readln(N);                  // Nhập giá trị cho biến N

     Writeln;                                                        // Xuống hàng

     Writeln('Bang nhan ',N);                              // In ra mục bảng nhân N

     Writeln;                                                        // Xuống hàng

     For i:=1 to 10 do writeln(N,'x',i:2,'=',N*i:3); // Vòng lặp chạy từ 1 đến 10 và in ra N*i

     Readln                                                        // Dừng để đọc

End.

c) Khi N = 1 thì kết quả in ra sẽ như thế này:

Nhap so N=1

.

Bang nhan 1

.

1x1=1

1x2=2

....

1x9=9

Tương tự với các giá trị khác của N