viết chương trình in ra bảng cửu chương từ 1 đến 10. nhanh giúp mik vs ạ

2 câu trả lời

uses crt;
var x,y,i,j:longint;
begin
clrscr;

for i:=1 to 10 do
for j:=2 to 10 do
begin
write (' ',j,'x',i,'=',i*j,' ');
if j=10 then writeln;
end;

readln;
end.

Program BTT;
Uses crt;
Var i,j: longint;

Begin
        Clrscr;
        For i:=1 to 10 do
        Begin
                For j:=1 to 10 do
                        Writeln(i,' x ',j,' = ',i*j);
                Writeln;
        End;

        Readln
End.