lập trình tính và in ra msnf hình P = a^ n với a,n nhập từ màn hình và a,n là số nguyên dương và nhỏ hoen 10

Question

khanhchau · Answer

program phuongt;

uses crt;

var a, n: integer;

p: longint;

begin

clrscr;

write(‘Nhap a = ‘); readln(a);

write(‘Nhap n = ‘); readln(n);

if (a>0) and (a<10) and (n>0) and (n<10) then

begin

p:=exp(ln(a)*n);

write(‘P = ‘, p);

end

else write(‘a,n phai la so nguyen va nho hon 10. Nhap sai!’);

readln

end.

ngochuong · Answer

Program somu;

uses crt;

var n,a,i:integer;

P:longint;

begin

clrscr;

write(‘Nhap a: ‘); readln(a);

write(‘Nhap b: ‘); readln(b);

P:=1;

for i:=1 to n do P:=P*a;

write(a,’^’,n,’= ‘,P);

readln;

end.

0 bình luận về “lập trình tính và in ra msnf hình P = a^ n với a,n nhập từ màn hình và a,n là số nguyên dương và nhỏ hoen 10”