bài 1: viết chương trình tính n! bài 2: viết chương trình tính a^n( a: real, b: integer)

Bài `1`

Program Hotboy;

Uses crt;

Var n, gt:longint;

Begin

     clrscr;

     Repeat

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

     until n>0;

     gt:=1;

     while n>0 do

     begin

     gt:=gt*n;

     n:=n-1;

     end;

     writeln('Giai thua cua n la: ',gt);

     readln

end.

Bài `2`

Program Hotboy ;

Uses crt;

Var gt,n,a : longint;

Begin

Clrscr;

Write('nhap n');

Readln(n);

Write('nhap a');

Readln(a);

For i:=1 to n do

Gt:=gt*a;

Write('A^n la',gt);

Readln

End.

Câu 1:

uses crt;
var n,i,gt:longint;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   gt:=1;
   for i:=n downto 1 do
      gt:=gt*i;
   writeln(n,'!=',gt);
   readln
end.

Câu 2:

uses crt;
var a,n,i,lt:longint;
begin
   clrscr;
   write('Nhap a,n: '); readln(a,n);
   lt:=1;
   for i:=1 to n do lt:=lt*a;
   writeln(a,'^',n,'=',lt);
   readln
end.