Cho số nguyên dương N,hãy cho biết N có là số chính phương không

0 bình luận về “Cho số nguyên dương N,hãy cho biết N có là số chính phương không”

1. var n:longint;

   begin

   write(‘Nhap n: ‘); readln(n);

   if sqrt(n) = trunc(sqrt(n)) then write(‘La so chinh phuong’) else write(‘Khong phai la so chinh phuong’);

   readln;

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var n: longint;
   Function CP(a: longint): boolean;
   Begin
           If a=sqr(trunc(sqrt(a))) then exit(true);
                                         exit(false);
   End;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           If CP(n) then Write(n,’ la so chinh phuong’)
           Else Write(n,’ khong phai so chinh phuong’);
           Readln
   End.

   Bình luận