Cách 1:
program c1;
uses crt;
var i,n:integer;
begin clrscr;
write('Nhap so n: '); readln(n);
writeln('Bang nhan ',n,' la: ');
for i:=1 to 10 do
writeln(n,' x 'i:2,' = 'n*i:3);
readln;
end.
Cách 2:
program c2;
uses crt;
var i,n,T:integer;
begin clrscr;
write('Nhap so n: '); readln(n);
writeln('Bang nhan ',n,' la: ');
T:=1; i:=1;
while i<=n do
for i:=1 to 10 do
begin
T:=T*i; i:=i+1;
writeln(n,' x 'i:2,' = 'T:3);
end;
readln;
end.
Học tốt!
