1. Bài tập 1. SGK trang 60
Uses Crt;
Var n, i: Integer;
BEGIN
Clrscr;
Write(‘Nhap n = ’); Readln(n);
Writeln;
Writeln(‘Bang nhan ’,n);
Writeln;
For i:=1 To 10 Do Writeln(N,‘x’,i:2,‘= ’, n*i);
Readln;
END.
2. Bài 2. SGK trang 61
For i:= 1 To 10 Do
Begin
GotoXY(5,Where); Writeln(n, ‘ x ’, i:2, ‘ = ’, n*i:3);
Writeln;
End;
AI BIẾT THÌ GIÚP GIÙM MIK VS NGAY VÀ LUÔN Ạ !!!
đây nè