Viết chương trình sử dụng câu lệnh câu lệnh while do để in ra màn hình bảng cửu chương số n khoảng từ 1 đến 9 số được nhập từ bàn phím

*Đối với For…to…do thì:
Uses crt;
Var i,n,T: integer;
Begin
Clrscr;
Repeat
Write(‘Nhap so n vao: ‘); Readln(n);
Until (n>0) and (n<=9);
T:=0;
Writeln(‘Bang cuu chuong cua ‘ ,n,’ la:’);
For i:=1 to n do
Begin
T:=n*i;
Writeln;
Writeln(n,’x’,i,’=’,T);
End;
Readln;
End.
*Đối với While…do thì:

Uses crt;
Var i,n,T: integer;
Begin
Clrscr;
Repeat
Write(‘Nhap so n vao: ‘); Readln(n);
Until (n>0) and (n<=9);
T:=0; i:=0;
Writeln(‘Bang cuu chuong cua ‘ ,n,’ la:’);
While i<=9 do
Begin
i:=i+1;
T:=n*i;
Writeln;
Writeln(n,’x’,i,’=’,T);
End;
Readln;
End.
*Khác nhau: For..to…do: i được gán từ 1  -> 9 nên khi tính thì không cần gán i và phải báo i:=i+1 như while do.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Thanks 😀
p/s: Hỏi và đáp, comment bên dưới