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.
2 câu trả lời
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.
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.
