5) a) Viết ct in ra màn hình bảng cửu chương của số N trong khoảng từ 1->9. N được nhập từ bàn phím b) Viết ct tính tổng T = 1+ 1/2 +1/3 +...+ 1/100 c) Cho một số ví dụ về khai báo biến mảng

a)

program a;

uses crt;

var i,N:integer;

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

   writeln('Bang nhan ',N,' la: ');

   for i:=1 to 10 do

     writeln(N,' x 'i:2,' = 'N*i:3);

readln;

end.

b)

program b;

uses crt;

var T:real;

      i:integer;

begin clrscr;

     T:=0;

   for i:=1 to 100 do

     T:=T+(1/i);

   writeln('Tong T la: ',T:4:2);

readln;

end.

c) Ví dụ về khai báo biến mảng:

      var  A:array[1..100] of integer;

      var Diem:array[1..41] of real;

Học tốt!