Tính ham lũy thừa a^n ở đây a thực và n là số tử nhiên được nhập từ bàn phím

0 bình luận về “Tính ham lũy thừa a^n ở đây a thực và n là số tử nhiên được nhập từ bàn phím”

1. uses crt;
   var i,n:longint; a,s:real;
   begin
   clrscr;
      write(‘Nhap so nguyen a: ‘); readln(a);
      write(‘Nhap so mu cua a: ‘); readln(n);
      s:=1;
      for i:=1 to n do
      s:=s*a;
      write(a:4:2,’^’,n,’: ‘,s:4:2);
      readln
   end.

   Nếu đề bài có yêu cầu sử dụng chương trình con thì mình sửa lại nhá 😀 

   Bình luận

2. program oken;
   uses crt;
   var i,n: longint;
       a,s: real;
   begin
           clrscr;
           write(‘Nhap so nguyen a: ‘); readln(a);
           write(‘Nhap so mu cua a: ‘); readln(n);
           s:=1;
           for i:=1 to n do
                   s:=s*a;
           write(a:0:3,’^’,n,’: ‘,s:0:3);
           readln;
   end.

   Bình luận