Bài 1: viết chương trình nhập vào 2 số nguyên x,n và tính x^n Bài 2: viết chương trình nhập vào một số nguyên A và in ra màn hình tất cả các ước của A

Bài 1:

program tinh_mu;

uses crt;

var x,n,i:integer;

     gt:longint;

begin

       clrscr;

       write(‘Nhap x: ‘);  readln(x);

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

       gt:=1;

       for i:=1 to n do

              gt:=gt*x;

       write(‘x^n = ‘,gt);

       readln;

end.

Bài 2:

program uoc_so;

uses crt;

var a,i:integer;

begin

       clrscr;

       write(‘Nhap A: ‘);  readln(A);

       write(‘Cac uoc cua ‘,a,’ la: ‘);

       for i:=1 to a do

              if a mod i=0 then write(i,’ ‘);

       readln;

end.