Question

 Giúp mình với ạ

Viết chương trình con

Tính x^y với y nguyên dương?

Answer 1

program im_14424;

uses crt;

var

begin

clrscr;

write('Nhap vao y: ');

readln(y);

write('Nhap vao x: ');

readln(x);

if y>0 then 

begin

for i:=1 to y do

x:=x*x;

end;

write('So can tinh la: ',x);

readln

end.

Answer 2

uses crt;

var x,y,lt,i:integer;

begin

clrscr;

write('Nhap x='); readln(x);

write('Nhap y='); readln(y);

lt:=1;

for i:=1 to y do 

 lt:=lt*x;

writeln(lt);

readln;

end.