Nhập từ bàn phím 2 số nguyên dương a và b. Lập trình tính và đưa ra màn hình a mũ b

0 bình luận về “Nhập từ bàn phím 2 số nguyên dương a và b. Lập trình tính và đưa ra màn hình a mũ b”

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

   Bình luận

2. Program BTT;
   Uses crt;
   Var a,b,s: int64;
       i: longint;
   Begin
           Clrscr;
           Write(‘Nhap a va b: ‘); Readln(a,b);
           s:=1;
           For i:=1 to b do
                   s:=s*a;
           Write(a,’ mu ‘,b,’ = ‘,s);
           Readln
   End.

   Bình luận