Question

Lần lượt in các bảng cửu chương.

a.Hướng dẫn :

– Cho biến i chạy từ 2 đến 9

– In bảng cửu chương i.

Answer 1

Program Cuu_Chuong_1;

 

uses crt;

var  i,j : integer;

begin

clrscr;

for i:= 2 to 9 do

Begin

Writeln(‘Bang cuu chuong ‘,i);

For j := 1 to 9 do writeln(i,’ x ‘, j, ‘ = ‘, j*i);

readln

end;

readln

end.