Viết 1 hàm kiểm tra 1 số nguyên x có phải là số chính phương không? Ứng dụng hàm này hãy in ra màn hình các số chính phương nhỏ hơn 100. Đang cần gấp

Bởi

Viết 1 hàm kiểm tra 1 số nguyên x có phải là số chính phương không? Ứng dụng hàm này hãy in ra màn hình các số chính phương nhỏ hơn 100.
Đang cần gấp ạ!

0 bình luận về “Viết 1 hàm kiểm tra 1 số nguyên x có phải là số chính phương không? Ứng dụng hàm này hãy in ra màn hình các số chính phương nhỏ hơn 100. Đang cần gấp”

  2. program chinh_phuong;

    Uses crt;

    var i:integer;

    {—ham-chinh-phuong—}

    function ktcp(x:integer):boolean;

    begin

           if sqr(trunc(sqrt(x)))=x then ktcp:=true esle ktcp:=false;

    end;

    {—Chuong-trinh-chinh—}

    BEGIN

           clrscr;

           for i:=1 to 99 do  {Vì nhỏ hơn 100}

                  if ktcp(i) then write(i,’ ‘);

           readln;

    end.

                 

    Bình luận

Viết một bình luận