*Đố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 :D
p/s: Hỏi và đáp, comment bên dưới
