Nhập vào 1 số nguyên dương bất kỳ kiểm tra xem có phải là số chính phương hay không giải theo tin học 10

Code bài này:

uses crt;

var x,a: integer;

Begin

clrscr;

write('Nhap so nguyen: '); readln(a);

x:=trunc(sqrt(a));

if sqr(x)=a then writeln(a,' la so chinh phuong.')

else writeln(a,' khong phai so chinh phuong.');

readln

end.

Số chính phương là 1 trong những bài tập gặp rất nhiều trong chương trình học lập trình cơ bản. Bài toán này cũng là 1 trong những bài toán có rất nhiều cách giải khác nhau. Như kiểu chạy i tới 1/n và bình thường lên khi nào =n thì n là số chính phương.. Hoặc chạy i = 1 kiểm tra tiếp nếu i bình phương < n thì tiếp tục + 1 lên. Các bạn có thể tham khảo một số cách dưới đây.
CHÚC BẠN HỌC TỐT