Nhập số N có phải số chính phương hay ko

0 bình luận về “Nhập số N có phải số chính phương hay ko”

1. uses crt;
   var n:longint;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      if sqr(trunc(sqrt(n)))=n then writeln(n,’ la so chinh phuong’)
      else writeln(n,’ khong phai la so chinh phuong’);
      readln
   end.

   Bình luận
2. • ledoandat
   • 27/03/2021

   program chinhphuong;

   uses crt;

   var n:integer;

   begin

   clrscr;

   repeat

   write(‘Nhap n=’); readln(n);

   until n>0;

   if sqrt(n)=trunc(sqrt(n)) then writeln(n,’ la so chinh phuong’);

   else writeln(n,’ khong la so chinh phuong’);

   readln;

   end.

   Bình luận