Program Cuu_Chuong_1;

uses crt;

var n, i : integer;

begin

clrscr;

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

for i:= 1 to 9 do writeln(n,' x ', i, ' = ', n*i);

readln

end.


Bảng cửu chương 2-9
 

Program Cuu_Chuong_1;

uses crt;

var i,j : integer;

begin

clrscr;

for i:= 2 to 9 do

Begin

Writeln('Bang cuu chuong ',i);

For j := 1 to 9 do writeln(i,' x ', j, ' = ', j*i);

readln

end;

readln

end.




ước của n 
 

Program Tim_uoc;

uses crt;

Var n, i: integer;

Begin

clrscr;

Write('Nhap so n ='); readln(n);

For i:=1 to n do if n mod i = 0 then write(i:3,',');

readln

end.
tick cho mk 5* vs 1 fl vs nha!