1)Viết chương trình in ra màn hình bảng cộng của 1 số từ 1 đến 9 biết số đó nhập từ bàn phím 2)Viết chương trình in ra màn hình bảng nhân của 1 số từ 1 đến 10 bt số đó nhập từ bàn phím HELP MEE??

Bài 1:

Program BTT;
Uses crt;
Var a,i: longint;
Begin
        Clrscr;
        Write('Nhap mot so bat ki: '); Readln(a);
        Writeln('Bang cong tu 1 den 9 cua so ',a,': ');
        For i:=1 to 9 do
                Writeln(' ',a,' + ',i,' = ',a+i);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var a,i: longint;
Begin
        Clrscr;
        Write('Nhap mot so bat ki: '); Readln(a);
        Writeln('Bang nhan tu 1 den 10 cua so ',a,': ');
        For i:=1 to 10 do
                Writeln(' ',a,' x ',i,' = ',a*i);
        Readln
End.

Bài 1 :

uses crt;

var i, n : integer;

begin

clrscr;

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

writeln('Bang cong ', n);

for i := 1 to 9 do

begin

writeln(n ,'  + ', i : 2 ,' = ', n + i : 3);

end;

readln

end.

Bài 2 :

uses crt;

var i, n : integer;

begin

clrscr;

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

writeln('Bang nhan ', n);

for i := 1 to 10 do

begin

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

end;

readln

end.