Question

Nhập hai số x,y  in ra x^y (pascal) dùng lệnh for...do

Answer 1

uses crt;

var x,lt:int64;

y,i:integer;

begin

clrscr;

readln(x,y);

lt:=1;

for i:=1 to y do

lt:=lt*i;

writeln(lt);

readln;

end.