Hàm chính phương ( LẬP TRÌNH PASCAL )

0 bình luận về “Hàm chính phương ( LẬP TRÌNH PASCAL )”

1. function kt(z:longint):boolean;
   begin
    kt:=true;
    if sqrt(z)<>trunc(sqrt(z)) then kt:=false;
   end;

   CHÚC BN HC GIỎI

   Bình luận

2. function cp(a: longint): boolean;
   begin
         if sqrt(a)<>trunc(sqrt(a))

                then exit(false)

         Else

                exit(true);
   end;

   Bình luận