viết chương trình Nhập một số nguyên dương n bất kỳ và kiểm tra xem n có phải là số chính phương không.

0 bình luận về “viết chương trình Nhập một số nguyên dương n bất kỳ và kiểm tra xem n có phải 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 chinh phuong’);

   readln

   end.

   Bình luận

2. uses crt;

   var n:longint;

   BEGIN clrscr;

   write(‘Nhap so nguyen duong n: ‘);

   readln(n);

   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