Mã nguồn đây nhé bạn:program sochinhpguong; uses crt; var a,i: longint; begin clrscr;write('Nhap a = '); readln(a); i:=1; repeat i:=i+1; until (i*i = a ) or (i > a); // dung lai khi i^2 = a hoac i>a if (i*i = a ) then writeln(a,' la so chinh phuong') //khi i^2 = a else writeln(a,' khong phai la so chinh phuong'); //cac truong hop con lai readln; end.
Uses crt;
Var a: integer;
Begin
Clrscr;
Readln(a);
If sqrt(a) mod 1 =0 then
writeln(a,' la so chinh phuong');
Else writeln(a,' khong phai la so chinh phuong');
Readln;
End.
