Question

Viết hàm để kiểm tra một số nguyên N có phải là số chính phương hay không ?  

Answer 1

function ktra(n:integer):boolean;

var kt:boolean;

begin

if trunc(sqrt(n))=sqrt(n) then kt:=true

else kt:=false;

if kt=true then ktra:=true

else ktra:=false;

end;