Tin học Hàm chính phương ( LẬP TRÌNH PASCAL ) 19/07/2021 By Margaret Hàm chính phương ( LẬP TRÌNH PASCAL )
function kt(z:longint):boolean;begin kt:=true; if sqrt(z)<>trunc(sqrt(z)) then kt:=false;end; CHÚC BN HC GIỎI Trả lời
function cp(a: longint): boolean;begin if sqrt(a)<>trunc(sqrt(a)) then exit(false) Else exit(true);end; Trả lời
function kt(z:longint):boolean;
begin
kt:=true;
if sqrt(z)<>trunc(sqrt(z)) then kt:=false;
end;
CHÚC BN HC GIỎI
function cp(a: longint): boolean;
begin
if sqrt(a)<>trunc(sqrt(a))
then exit(false)
Else
exit(true);
end;