Số chính phương là bình phương của một số nguyên. Nhập số tự nhiên n. Cho biết n có phải số chính phương hay không? InputOutput
9 9 la so chinh phuong
10 10 khong la so chinh phuong
Uses crt; Var n,i:longint; t:boolean; Begin readln(n); If round(sqrt(n))=sqrt(n) then write(n,' La so cp') else Write(n,' Khong la so cp'); readln; end.
Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!
Uses crt;
Trả lờiXóaVar n,i:longint;
t:boolean;
Begin
readln(n);
If round(sqrt(n))=sqrt(n) then write(n,' La so cp') else Write(n,' Khong la so cp');
readln;
end.