viết chương trình nhập vào 2 số x,n.Hãy tính x^n Ví dụ nhập x=2, n=3 in ra 2^3=8

2 câu trả lời

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

program ct;

uses crt;

var i,x,n:integer;

      T:real;

begin clrscr;

   write('Nhap hai so x,n: '); readln(x,n);

     T:=1;

   for i:=1 to n do

     T:=T*x;

   writeln(x,'^',n,'=',T);

readln;

end.

Học tốt!

Câu hỏi trong lớp Xem thêm