kiểm tra số chính phương ngắn thôi trương trình nâng cao 19/07/2021 Bởi Caroline kiểm tra số chính phương ngắn thôi trương trình nâng cao
var n:longint;begin read(n); if n=sqr(trunc(sqrt(n))) then write(‘Co’) else write(‘Khong’);readlnend. Bình luận
Function snp(a:integer): boolean; Begin If sqrt(x)=trunc(sqrt(x)) then then exit(true) else exit(false); End; Bình luận
var n:longint;
begin
read(n);
if n=sqr(trunc(sqrt(n))) then write(‘Co’) else write(‘Khong’);
readln
end.
Function snp(a:integer): boolean;
Begin
If sqrt(x)=trunc(sqrt(x)) then
then exit(true)
else exit(false);
End;