Viết chương trình nhập vào 2 số nguyên x,n và tính x^n

0 bình luận về “Viết chương trình nhập vào 2 số nguyên x,n và tính x^n”

1. program phuongt;
   uses crt;
      var x, n, i, s: integer;
   begin 
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           write(‘Nhap x = ‘); readln(x);
           i:=1;
           s:=1;
           while i<=n do
           begin
                   s:=s*x;
                   i:=i+1;
           end;
           write(x, ‘ ^ ‘, n ‘ = ‘, s);
           readln
   end.

   Bình luận

2. uses crt;

   var x,n,i: integer;

   k: longint;

   begin

   clrscr;

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

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

   k:=1;

   for i:=1 to n do

   k:=k*x;

   writeln (x,’^’,n,’ la: ‘,s);

   readln;

   end.

   Bình luận