tin học 10

[leminhnghia1]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

$\fbox{?}$ Nhập vào N và kiểm tra xem N có phải là số chính phương hay không?

 

[truongtuan2001]

bool squarenumber(long n)
{
    long k = 1;
    while (n > 0) 
        { 
            n -= k; 
            k += 2;
        }
    return n == 0;
}

 

[tpgionhe]

$\fbox{?}$ Nhập vào N và kiểm tra xem N có phải là số chính phương hay không?

Chào bạn bạn tham khảo code bên dưới nhé:

program check_so_chinh_phuong;
uses crt;
var n: integer;
begin
clrscr {Cái này dùng xóa màn hình thôi không có gì đặc biệt}
write('Nhập vào số cần kiểm tra:'); readln(n); { Cái này cho người dùng input}
if sqr(sqrt(n))=nthen
wite('N la so chinh phuong')
else
write('N khong phai la so chinh phuong');
readln;
end.

>>> Chúc bạn học tốt